find sub{print $_,"\n"}, "./"


##</code><code>##

%perl -MFile::Find -e 'find sub{print $_,"\n"}, "./"'


##</code><code>##

sub my_Sub{
    do-something-with-$_
    .
    .
}
find \&my_Sub, @directories;