#!/usr/local/bin/perl
#Perl script to convert filenames to lower case
#Written 10/7/97 by Robert G. Ferrell
#Revised 6/20/00  RGF

$dir = $ARGV[0];
unless ($dir ne "") {
	print "Usage: u2l [directory]\n";
	exit();
}
unless (-d $dir) { 
	print "$dir is not a directory.  Try again.\n";
	exit();
}

opendir(DIR, $dir) || die "Can't open directory $dir.";
@filenames = readdir(DIR);
closedir(DIR);

for (@filenames) {

        next if $_ eq '.';
        next if $_ eq '..';
        if (/[A-Z]/o) {
             $fname = $_;
             tr/A-Z/a-z/;
             qx(mv -i $dir/$fname $dir/$_);

        }
}