#!/usr/bin/perl

$| = 1;
($P = $0) =~ s".*/"";	# Our name, minus directories
$V = $ENV{"V_$P"} || 1;	# Verbose/trace/debug level
$exitstat = 0;

for $f (@ARGV) {
	print "$f\n" if $V>1;
	$f =~ s"^.*/"";
	print "$f\n";
	utime undef, time, $f;
}

exit $exitstat;