That messes up on filenames containing newlines. You're better off using even the shell's globbing:

perl -e 'for (@ARGV) {for($d=$_){y/A-Z/a-z/;};rename $_,$d unless -f $
+d;}'  *
[download]

-- Randal L. Schwartz, Perl hacker