use strict;
use warnings;
use File::Find;
my $path = '.';
finddepth(\&pattern, $path);

sub pattern {
  print "$_\n";
  rename($_, lc($_));
}

__END__