Create perl.pl