#!/usr/bin/perl -w
use strict;

for my $F (@ARGV) {
	my $f = $F;
	$f =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/;
	rename $F, $f;
}