opendir DIR, $Verzeichnis or die $!;
while( my $entry = readdir DIR ){
print $entry,"\n";
}
closedir DIR;