#!/usr/local/bin/perl
## $Id: ren-tolower,v 1.1 2003/03/16 22:54:42 forman Exp forman $ 
##
## Author:        Michael Forman <Michael.Forman@Colorado.EDU>
## URL:           http://www.Michael-Forman.com
## Creation Date:  Date: 2001/10/06 19:06:35 GMT
## Last Revision: $Date: 2003/03/16 22:54:42 $ 
## Revision:      $Revision: 1.1 $
##
## Copyright (C) 1999, 2000 Michael Forman.  All rights reserved.
## This program is free software; you can redistribute it
## and/or modify it under the same terms as Perl itself.
## Please see the Perl Artistic License.
##
## Category: File manipulation
## Rating:   4/5
##
## <meta name="title" content="ren-tolower">
## <meta name="description" content="Rename files to lower case.">
## <meta name="abstract" content="Rename files to lower case.">
## <meta name="keywords" content="Michael Forman perl script ren-tolower CPAN">
#

use Getopt::Long;

#---------------------------------------------------------------------------
GetOptions(
  "h|help"	=> \$help,
);
#---------------------------------------------------------------------------
if($help){ exec("perldoc $0"); }
#---------------------------------------------------------------------------
foreach $uc (@ARGV){
  $lc = lc($uc);
  if(!-e $lc){
    `mv $uc $lc`;
  }
}
#---------------------------------------------------------------------------
##
## Use "perldoc ren-tolower" to read the man page below.
#
__END__

=head1 NAME

B<ren-tolower> - description

=head1 SYNOPSIS 

B<ren-tolower> S<[ B<-a> ]> S<[ I<file ...> ]>

=head1 DESCRIPTION

B<ren-tolower> renames files to all lowercase characters.

=head1 OPTIONS

B<-h --help>

Prints this information.

=head1 EXAMPLE

B<ren-tolower> B<-a> I<file>

=head1 BUGS

None.

=head1 SEE ALSO

ren-tolower    

=head1 AUTHOR AND COPYRIGHT

 Michael Forman <Michael.Forman@Colorado.EDU> http://www.Michael-Forman.com

 Copyright (C) 2001, 2002 Michael Forman.  All rights reserved.
 This program is free software; you can redistribute it
 and/or modify it under the same terms as Perl itself.
 Please see the Perl Artistic License.

=head1 VERSION

 Current Revision:  $Revision: 1.1 $
 Last Modification: $Date: 2003/03/16 22:54:42 $