sub do_open {
  # ./datei gibt es nicht
  open my $FH,'<','./datei' or die $!;
}

.....

eval {
  do_open()
} or die "Fehler: $@";