in reply to Another lowercase one-liner

-f lc||rename($_,lc)||warn"$_: $!\n" for <*>

In Section Cool Uses for Perl