# [thread]while( my $entry = readdir DIR ) { push @liste_gesammt, "$entry\n"; } close DIR; foreach my $zeile (@liste_gesammt) { next if ($zeile =~ /\.$/); if ($zeile =~ / /) { print "Sorry folder empty!"; } chomp($zeile); my $weg = "$directory/$zeile"; @argumente = stat($weg); if ($argumente[7] == 0) { push @folder, "$zeile\n"; } else { push @liste, "$zeile\n"; }}