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