my $fh;
unless (open ($fh, "<", $file)) {
  warn "Fehler: $!\n";
}
else {
  unless (defined(fileno($fh)) {
    die "Fehler...\n";
  }
} # else