opendir(DIR,$file);
@files = readdir(DIR);
close(DIR);

for (@files){
if($file =~ /\.HTML/ || /\.HTM/)
{
     system("rename $file (lc)$file");
}
}