$file = "\/etc\/hosts";
$t1 = -A $file;
$t2 = (stat( $file ))[8];
$t3 = $^T  - (-A $file) * 24 * 60 * 60;
print $t1, $/;
print $t2, $/;
print $t3, $/;