perl -e 'for (@ARGV) { rename $_, lc($_) unless -e lc($_); }' *