.bp 
.au "TSC \- intro.xx"

.c
The Cptimes Program

.2
\f(BIcptimes\fB is a very simple but occasionally useful program: it copies
the timestamp from one file to one or more other files.

.2
Here's the whole thing:

.b
if (@ARGV < 2) {
  die "usage: cptimes orig other ...\en";
} 

$stamp = shift;
.sp .5
($atime, $mtime) = (stat($stamp))[8,9];
.sp .5
utime $atime, $mtime, @ARGV;
.e