#!/usr/local/bin/perl

$filecount = 1;
while (@ARGV)
{
	$oldfile=$ARGV[0];
	$filename=$ARGV[0];
	$filename =~ s/^A/a/;
	$filename =~ s/^B/b/;
	$filename =~ s/^C/c/;
	$filename =~ s/^D/d/;
	$filename =~ s/^E/e/;
	$filename =~ s/^F/f/;
	$filename =~ s/^G/g/;
	$filename =~ s/^H/h/;
	$filename =~ s/^I/i/;
	$filename =~ s/^J/j/;
	$filename =~ s/^K/k/;
	$filename =~ s/^L/l/;
	$filename =~ s/^M/m/;
	$filename =~ s/^N/n/;
	$filename =~ s/^O/o/;
	$filename =~ s/^P/p/;
	$filename =~ s/^Q/q/;
	$filename =~ s/^R/r/;
	$filename =~ s/^S/s/;
	$filename =~ s/^T/t/;
	$filename =~ s/^U/u/;
	$filename =~ s/^V/v/;
	$filename =~ s/^W/w/;
	$filename =~ s/^X/x/;
	$filename =~ s/^Y/y/;
	$filename =~ s/^Z/z/;
	print ("$filename\n");
	rename ($oldfile, $filename);
	shift (@ARGV);
}
print ("That's all\n");