Update perl.pl