opendir(my $dh, '.') or die $!;
for ( grep { !/^\.+$/ } readdir $dh ){
   print "$_\n";
}