perl script1+2.pl file1 < another-file