This is probably not the best solution, but this will save me from thinking in the future:

for i in `ls` ; do mv $i `echo $i | awk '{print tolower($1)}'`; done