find( sub {print $_,"\n"}, '.');

##</code><code>##

while ($_ = readdir DIR) {
 print $_,"\n";
}