Update learn_perl.pl