#!/usr/local/bin/perl -w
use strict;
use warnings;
use File::stat;

my $filename = "test.txt";

my $mtime = (stat $filename)[9];

print $mtime;