opendir my $dh, "/dir";
my $anzahl_dateien = () = readdir $dh;
closedir $dh;