unless (open ($IN, "<", "file1.txt")) {
  die "Error in reading 'file1.txt': $!\n";
} # unless