foreach (sort {-M qq($dir/$b) <=> -M qq($dir/$a)} readdir(ROOT)) {
   print $_, $/;
}