my $vh;
opendir($vh, $verzeichnis);