#!/usr/bin/perl -w

while($fn = pop(@ARGV))
	{
	if(! (-e $fn) ) {die "File $fn does not exist";}
	print "Renaming " . $fn . "\n";
	rename($fn,lc($fn));
	}