Select Code to Download

#!/usr/bin/perl
use strict;
...
my $filename = 'test.log';
my $epochSecs = (stat($filename))[9];
print "Date: " . UnixDate( ParseDateString("epoch $epochSecs"), "%Y-%m
+-%d %T" ) . "\n";