#!/usr/bin/perl
$now = time;
foreach $file (@ARGV) {
	utime($now, $now, $file)
		|| open(TMP, ">>$file")
		|| warn "Couldn't touch $file: $!\n";
}
