#!/usr/bin/perl
$now = time;
@cannot = grep(!utime($now, $now, $_), @ARGV);
die "$0: Could not touch @cannot.\n" if @cannot;
