perl do_it file1 file2