Select Code to Download

rename($_, lc($_)) foreach <*.HTM{,L}>;   # yes, this is portable

$op = shift or die "Usage: rename expr [files]\n";
chomp(@ARGV = <STDIN>) unless @ARGV;
...
   die if $@;
   rename($was, $_) unless $was eq $_;
}

rename '$_ = lc' *.HTM *.HTML