for (glob('*')) {
   print "$_\n";
}

##</code><code>##

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