ls|perl -lne 'for($d=$_){y/A-Z/a-z/;};rename $_,$d unless -f $d;' [download]
In reply to Another lowercase one-liner by michairw