open my $file1, '<', "file1.txt"
  or die "Can't open `file1.txt': $!\n";