One way to do it would be something like this:

#!/usr/bin/perl -w
use strict;

# Open 'find' process to list files recursively with paths
open(FIND, "find |");
while(<FIND>) {
        chomp;
        next if $_ eq $0;        # Don't rename ourself
        rename($_, lc($_));
        }
close(FIND);
[download]

It's not remarkably efficient, but it'll do your bidding.

JP