opendir(my $dh, $directory) or die("Error opendir $directory ($!)\n"); my @liste_gesammt=readdir($dh); closedir($dh);