if( $datei =~ m/[äöü]+/ ) {
        my $d = $mw->DialogBox(-title => "Schlechtes Programm", -buttons => ["OK"]);
        my $w = $d->add(
            'Label',
            -text => "Leider kann dieses Programm noch keine Dateien einlesen,\n"
                   . "deren Dateiname Umlaute enthält. Das ist ein Problem von\n"
                   . "Tk und ich habe keine Ahnung, wie man das behebt.\n"
                   . "Wer das weis möchte sich bitte die Funktion addDatei\n"
                   . "vorknöpfen, einen Patch schreiben und ihn mir zusenden.\n"
                   . "Danke.",
            -justify => 'left',
        )->pack();
        my $button = $d->Show;
        return;
    }