(a)
($dev, $inode, $mode, $nlink, $uid, $gid, $rdev, $size,
$atime, $mtime, $ctime, $blksize, $blocks) = lstat($filename);

print "$filename (MAC): $mtime,$atime,$ctime";

(b)
$change_to = time();                    # set to current time
utime($change_to, $change_to, $file);   # atime, mtime, filename

Example 1: (a) Using Perl's lstat() system call; (b) using the utime() system call.