#! perl -slw
use strict;

opendir DH, "." or die $!; # open current directory
while($_ = readdir(DH)){    
    # don't evaluate special dirs '.' & '..'
    next if $_ eq "." or $_ eq ".."; 
    print "$_"; # print this file/directory's name
}
__END__