#!/usr/bin/perl -w
use strict;
use File::Find;

my @files;
sub wanted {
	push @files, [ $File::Find::name, -M $_ ];
}
find(\&wanted, "/tmp");

foreach (sort {$a->[1] <=> $b->[1]} @files) {
	print $_->[0], "\n";
}