#!/usr/bin/perl
$|=1;
opendir(DIR, ".");

while ($file = readdir DIR) {
	$filenew = $file;
	$filenew =~ tr/A-Z/a-z/;
	print "$file -> $filenew\n";
	`mv $file $filenew`;
}
closedir DIR;