perl compare.pl file1 file2