open my $fh, '<', $file or do {
   print STDERR "Konnte Datei $file nicht oeffnen: $!"
   print STDERR "Versuche naechste Datei zu oeffnen...\n";
   next;
};