perl -MFile::Find -e 'find(sub{ -f and do_something_with($File::Find::name)}, ".")'

##</code><code>##

perl -MFile::Find -e "find(sub{ -f and do_something_with($File::Find::name)}, '.')"