C:\tmp>type test.pl
#!/usr/bin/perl -w
opendir D, '.' or die $!;
while( $file = readdir(D) ) {
    next if $file =~ m/^\./;
    print "Got $file\n";
}

C:\tmp>test.pl
Got A
Got bookmark.htm
Got inherit.pl
Got temp.dir
Got temp.pag
Got temp0.txt
Got temp1.txt
Got test.pl

C:\tmp>

##</code><code>##

C:\tmp>type test.pl
#!/usr/bin/perl -w
opendir D, '.' or die $!;
while( $file = readdir(D) ) {
    #next if $file =~ m/^\./;
    print "Got $file\n";
}

C:\tmp>test.pl
Got .
Got ..
Got .foo
Got A
Got bookmark.htm
Got inherit.pl
Got temp.dir
Got temp.pag
Got temp0.txt
Got temp1.txt
Got test.pl

C:\tmp>