#! /usr/bin/perl -w
#
#  This is a quick and dirty tool used to rename a bunch of stuff to its
#  lowercased name.  I had to use this one day when I copied a bunch of
#  data from DVD to AFS and needed it to be lowercased.  To use,
#      find . -print | rename_to_lowercase.pl

while ( <> ) {
   chop;

   if (/[A-Z]/) {
      $lc_name = lc $_;
      `/usr/bin/mv $_ $lc_name\n 2>/dev/null`;
   };
};