unless(open (my $fh1, '<', "$file1")) { ... Fehlerbehandlung ...}