#!/usr/bin/perl
# Time-stamp: "2005-08-19 01:25:33 ADT" sburke@cpan.org
# desc{    renames files to lowercase    }

@ARGV = glob($ARGV[0]) if @ARGV == 1 and $ARGV[0] =~ m<[?*]>;

foreach $filespec (@ARGV) {
    $out = lc($filespec);
    unless($filespec eq $out) {
      rename($filespec, 'x') || next;
      rename('x', $out) || rename('x', $filespec);
      print "$filespec -> $out\n";
    }
}

1;

#
## end
