#!/usr/local/bin/perl
while ($fn = <*>) {
 ($fn1 = $fn) =~ tr/A-Z/a-z/;
print STDOUT "$fn $fn1 ",rename($fn,$fn1),"\n";
}