opendir(DIR, $dir) or die "Cannot open directory '$dir': $!";
my @files = readdir(DIR);
close(DIR);

foreach my $file (@files) {
    if ($file =~ /\.HTML?$/i) {
        system("rename $file \L$file\E");
    }
}