#!/usr/bin/perl
$now=time;
utime $now, $now, @ARGV;