sub getDatei {
    my $heap = shift;
    my $mw = shift;

    my $datei = $mw->getOpenFile(
        -filetypes  => $heap->{zulaessigeDateitypen},
        -initialdir => $Bin,
        -multiple   => 0,
    );

    # Edit2: besser doch kein File::Spec :-/
    #$datei = File::Spec->catfile($datei);
    utf8::downgrade($datei);

    if( $datei ) {
        say "Es wurde eine Datei angegeben: [$datei]";
        
        if( -e $datei ) {
            say "Die Datei existiert";
        }else{
            say "die Datei existiert nicht!";
        }
    }
    
} # /getDatei