# Everything that isn't just dots.
my @e = grep { ! /^\.+$/ } readdir(DH);