Create learn_perl.pl