Update perl.pl

jus a test