[...]     my $dn   = dirname($file);                          
    my $sl   = "/";                                      
     print "Pfad ist: $dn$sl";       
     my @files = glob($db.'/*.pl');                       
     $laden_entry->delete(0, 'end') if(@files);                  
     foreach my $pl(@files){
       $laden_entry->insert('end', $pl);                
     }      
[...]