my @stat = stat $filename;
say $stat[5];

##</code><code>##

use File::stat;
my $stat_obj = stat $filename;
print $stat_obj->mtime;