while (1) {
    my $fh;
    my $dateiname = eingabe();
    if (open $fh, '<', $dateiname) {
        last;
    } else {
        warn "Kann $dateiname nicht oeffnen: $!\n";
    }
}