Create perl3.pl