Perl scrip changes