#!/usr/bin/perl -w 

# written by Sam Smith - S@mSmith.net

unless (defined $ARGV[0]) {
	print STDERR "usage: $0 - renames uppercase files to lowercase. \nSupply filenames as arguments\n";
	exit(1);
}

foreach $FILENAME (@ARGV)
{
  unless (-e $FILENAME) { print "rename of $FILENAME failed as it doesn't exist\n"; }
  $filename= lc $FILENAME;
  if ($FILENAME eq $filename) {print "not changing $filename\n";next};
  if (-e $filename) { print "rename of $FILENAME failed - $filename exists\n"; }
  else {rename $FILENAME,$filename ; }
}