- or download this
use strict;
use warnings;
use utf8;
...
my $when = localtime $mtime;
print "$when: $file\n";
}
- or download this
...
Thu Apr 30 10:24:40 2015: ./alpaca/template_stuff/html1.pm
...
Thu May 21 09:22:21 2015: ./perl5/lib/perl5/HTML/TableExtract.pm
Mon Nov 1 07:04:16 2010: ./perl5/lib/perl5/Prompt/Timeout.pm
Wed Jun 24 04:07:26 2009: ./perl5/lib/perl5/WWW/Mechanize/GZip.pm
- or download this
use strict;
use warnings;
use utf8;
...
my $when = localtime $atime;
print "$when: $file\n";
}
- or download this
local time is 13 44 19 23 5 116 4 174 1
Mon Jun 13 19:12:19 2016: ./alpaca/template_stuff/html1.pm
...
Wed Jun 22 22:08:24 2016: ./perl5/lib/perl5/HTML/TableExtract.pm
Wed Jun 22 22:12:21 2016: ./perl5/lib/perl5/Prompt/Timeout.pm
Wed Jun 22 22:06:40 2016: ./perl5/lib/perl5/WWW/Mechanize/GZip.pm