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