rename $_, lc($_) or warn "Could not rename $_ to @{[lc($_)]}: $!\n";