my $vh;
opendir($vh, $verzeichnis);
my @unterVerz = readdir($vh);