for (`locate $ARGV[0]`) {
  chop;
  -M and $f{$_}=($stat _)[9];
}
for $x (sort { $f{$a} <=> $f{$b} } keys %f) {
  printf "%s $x\n", scalar localtime($f{$x});
}