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