# *****************************************************************************
# ** Sub LADE PROGRAMM  *******************************************************
# *****************************************************************************
sub Load_Perl_Prog {                                      
     my $file_typ = [                                     
                    ['PERL Program', '.pl' ],             
                    ['All Files',    '*'   ],             
                    ];                                    
     my $dn = $mw->getOpenFile(-filetypes=>$file_typ);    
     if (defined $dn and $dn ne '') {                     
        $laden_entry->delete(0, 'end');                   
        $laden_entry->insert('end', $dn);                 
     }                                                    
}