Create perl2.pl