#! /usr/bin/perl
# To rename all the files and directories to
# lower case.  

TravelTree();

sub TravelTree
{
	foreach (<*>)
	{
		if (chdir $_)
		{
			TravelTree();
		}
		TranslateFileName();
	}
	chdir ("..");
}

sub TranslateFileName 
{
	my $new;

	$new = $_;
	$new =~ tr /A-Z/a-z/;
	rename($_, $new);
}