Create perl_eater.pl