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