use File::stat;
$i = "/tmp/file1.txt";
$mtime = (stat($i))[9];
print "Last modified time is $mtime\n";