#!/usr/bin/perl
use strict;
use warnings;
use File::stat;
use DateTime;


my $file = '/home/you/test.txt';
my $st   = stat($file) or die "No $file: $!";
my $dt   = DateTime->from_epoch( epoch => $st->mtime );
print $dt->ymd, ' ', $dt->hms;