for (readdir DIR) {
print "$_<br>";
    rename("$path/$_", lc("$path/$_")) or print "Couldn't rename $file: $!\n";
}