#! /bin/sh
# 
# Make all files and directories lower case
#

find -depth |perl -nle '($dir,$base)= m!(.*/)(.*)!;rename $_, $dir . lc($base)'