perl -e 'opendir(DIR, "."); map ((rename $_, lc($_)), readdir(DIR)); closedir DIR;'