if ( open my $fh, '<', $file ) {
        # while-Block
    }
    else {
        print "Fehler beim Einlesen von $file: $!";
    }