#Tree
my $tree = $bearb_markierte->Scrolled( "Tree", -exportselection=>1, 
                           -scrollbars=>"osoe");
$tree->pack( -expand=>'yes', -fill=>'both', -padx=>10, -pady=>10, -side=>'top' );

foreach my $d (@verz_liste) {
    my $text = (split( /\\/, $d ))[-1]; 
    $tree->add( $d, -text => $text, -image => $tree->Getimage("folder") );
}