opendir(ROOT, $dir) || die "$!\n";

foreach (sort { -M $b <=> -M $a } readdir(ROOT) ) {
  print "$_\n";
}