my @ary = stat $path;
$time   = $ary[9];