<b>(a)</b> ($dev, $inode, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = lstat($filename); print "$filename (MAC): $mtime,$atime,$ctime"; <b>(b)</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.