Select Code to Download

$mtime=(stat ( $ARGV[0] ))[9]; # mtime is 9 , atime is 8!!

#!/usr/bin/perl -w
use strict;
...
$mtime = (stat($ARGV[0]))[9]; ## Update, this is supposed to be a 9 RE
+ALLY
print "$mtime\n";