#!/usr/bin/env perl -l

use strict;
use warnings;
use autodie;

use File::stat;

my $path = './pm_1079278_mtime_test';

opendir(my $dh, $path);
my @files = map { "$path/$_" } readdir $dh;
closedir $dh;

my @sorted_files = sort { -M $a <=> -M $b } @files;

for (@sorted_files) {
    print '-' x 30;
    print "File:  $_";
    next unless -f;
    print '-M:    ', -M;
    print 'mtime: ', stat($_)->mtime;
}