use warnings; use strict; my ($listitem,$dir); $dir="C:/Temp"; opendir(DIR, $dir) or die "Can't open $dir: $!"; my @contents = grep !/^\.\.?$/, readdir DIR; foreach $listitem ( @contents ) { print "$listitem\n"; }