use File::Find;
find (sub {rename $_, lc $_ }, @ARGV);