I'll let you write the Perl code.
basically the code is like this
For each dir in folder{
new_dir = lowercase(dir);
move(dir, new_dir);
}
Of course, you can do some fancy stuff, like
new_dir = uppercase(dir[0]) . lowercase(dir[1-]);
Remember, none of this is perl (cause i'm too slack this morning to write perl)
Tim