# makefilenameslower.pl
# by Mike Moxcey
# Makes all filenames in the directory lowercase (except this one)

###### create an array of filenames in this directory
opendir(DIR,'.') || die "Can't open current directory";
@filenames = readdir(DIR);
closedir(DIR);

###### run thru array and translate
for (@filenames)
  {
  next if $_ eq '.';
  next if $_ eq '..';
  next if $_ eq $0;
  $fname = $_;
  $newname = $fname;
  $newname =~ tr/A-Z/a-z/;
  print " FNAME=$fname  NEWNAME=$newname";
  print"\n";
  system "ren $fname $newname";
  }