2011-07-04T09:43:00 havi

Die "Ordner" . und .. kannst du gleich beim readdir ausschließen:

Code (perl): (dl )

my @remove = grep { $_ !~ m/\.{1,2}/ } readdir($dfh);

Du müsstest hier schon m/\A\.{1,2}\z/ benutzen, weil Du sonst Ordner wie ".cpanreporter" oder "test.order" auch auschließen würdest.