sub getFile
        {
        my($action, $datAuswahl, $entry) = @_;
        my($filename)="";
        my $filetypes = [ ['Textfiles', '.txt' ], ['Textfiles', '.TXT'] ];
        if($action eq 'INPUT')
                {
                $filename = $datAuswahl->getOpenFile(
                    -filetypes => $filetypes, 
                    -title     => 'Select a file...',
                );
        
        
        
        
        }