Time for the Schwartzian transform!

#!/bin/perl -w
use strict;

opendir(ROOT, ".") or die "Arghh!!! $!";
my @sorted_files=
        map  { $_->[1] }
        sort { $a->[0] <=> $b->[0] }
        map  { [ -M $_, $_] }         
        readdir( ROOT);

print join "\n", @sorted_files;
exit;
[download]