#!/bin/perl -w
use strict;

chdir 'C:/devl/bin' or die "Arghh!!! $!";
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;