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