Perl : making all filenames lowercase

Renaming all files in a directory to lowercase names in a directory recursively.

find . -type f -exec perl -e 'rename($_, lc) || warn "$_: $!\n" for @ARGV' {} \;