perl scropt.pl