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