Select Code to Download

$ ls -al pm_1079278_mtime_test
total 0
...
-rw-r--r--    1 ken  staff      0 22 Mar 04:19 test1
-rw-r--r--    1 ken  staff      0 22 Mar 04:20 test2
-rw-r--r--    1 ken  staff      0 22 Mar 04:21 test3

#!/usr/bin/env perl -l

...
    print '-M:    ', -M;
    print 'stat9: ', (stat)[9];
}

------------------------------
File:  ./pm_1079278_mtime_test/..
...
File:  ./pm_1079278_mtime_test/test1
-M:    0.0450810185185185
stat9: 1395422386

#!/usr/bin/env perl -l

...
    print '-M:    ', -M;
    print 'mtime: ', stat($_)->mtime;
}

------------------------------
File:  ./pm_1079278_mtime_test/..
...
File:  ./pm_1079278_mtime_test/test1
-M:    0.0458449074074074
mtime: 1395422386