#!perl -w
use strict;
use File::Find;

my $path = $ARGV[0];
my $ct = 0;
find (\&wanted, $path);
print "Number of files changed: ", $ct, "\n";

sub wanted
{
  if ($_ ne lc($_)) 
  {
     my $newname = lc($_);
     rename ($File::Find::name, $File::Find::dir . $newname);
     print $_, " was changed to ", $newname, "\n";
     $ct++;
  }
}