opendir(DIR, $path);
@files = readdir(DIR);
closedir(DIR);

$ct = 0;
foreach $fname (@files)
  {
  if($fname eq ".") { print "Skipped \"$fname\"\n"; next; }   # skip the
current dir
  if($fname eq "..") { print "Skipped \"$fname\"\n"; next; }   # skip the
parent dir
  if(`-d $fname`) # dir find
    {
    print "DIRECTORY: $fname\n";
    next;
    }
  my $newfname = lc($fname);
#  if(rename($fname, $newfname))
#    { print "Changed $fname to $newfname\n"; }
  print "FILE[$ct]: \"$fname\" \"$newfname\"\n";
  $ct++;
  }