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