opendir(my $DIR, $verz) or die "Error: couldn't read dir '$verz': $!\n";
my @inhalt = sort
    grep { not /^\.\.?$/ } # . und .. ueberspringen
    readdir($DIR);
closedir($DIR);
$list->insert('end', @inhalt);