perl 1.pl file=filename.txt > outfile