#!/usr/bin/perl

if (@ARGV < 2) {
    die "usage: cptimes timestamp_file other_files ...\n";
} 

$timestamp = shift;

($atime, $mtime) = (stat($timestamp))[8,9];

utime $atime, $mtime, @ARGV;