# *****************************************************************************
# ** Sub LADE PATH ************************************************************
# *****************************************************************************
sub Load_Path {                                      
     my $file_typ = [                                     
                    ['PERL Program', '.pl' ],             
                    ['All Files',    '*'   ],             
                    ];                                    
     my $dn   = $mw->getOpenFile(-filetypes=>$file_typ);   
     my $file = $dn;                                       
     my $dn   = dirname($file);                            
     print "Pfad ist: $dn";                               
     if (defined $dn and $dn ne '') {                      
        $laden_entry->delete(0, 'end');                    
        $laden_entry->insert('end', $dn);                  
     }                                                     
}