use File::Find;

@ARGV ||= '.';

find( { preprocess => \&pp }, @ARGV ); 

sub pp {
    for(@_){
        my $new = lc $_;
        next if $new eq $_;
        unless(-e $new){
            rename $_, $new;
            $_ = $new;
        }
    }
    return @_;
}