my $verz = "c:"; 
my $kiste1 =$top->DirSelect(-dir=>$verz , -width=>40)->Show;