($device,$inode,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
$blksize,$blocks) = stat($getinfile);
my($timenow)=time;
$delta=$timenow-$mtime;

# versus
$delta = time - (stat($getinfile))[9];