open my $fh, '<', $file or fehler_routine($file, $!);

sub fehler_routine {
   my $file = shift;
   my $fehler = shift;
   # fehler verarbeiten
}