cli$ perl -MFile::Find -e 'find( sub{ print $File::Find::name,$/ }, "." )'