for (readdir DIR) { print "$_
"; rename("$path/$_", lc("$path/$_")) or print "Couldn't rename $file: $!\n"; } #### for (readdir DIR) { next if (/^\.{1,2}$/); print "$_
"; rename("$path/$_", lc("$path/$_")) or print "Couldn't rename $_: $!\n"; }