Changing:

rename("$path/$_", lc("$path/$_")) or print "Couldn't rename $file: $!\n";

To

rename("$path/$_", "$path" . lc("/$_")) or print "Couldn't rename $file: $!\n";

Would allow upper case letters in your path.

This page is intentionally left justified.