Create perl4.pl