perl -le 'for (glob "./*") {$o = $_; tr/[A-Z]/[a-z]/; print $o, $_}'