#!/usr/bin/perl
use strict;
use warnings;
use Date::Manip;

my $filename = 'test.log';
my $epochSecs = (stat($filename))[9];
print "Date: " . UnixDate( ParseDateString("epoch $epochSecs"), "%Y-%m-%d %T" ) . "\n";