G:\>perl -w -e "utime(undef, 1156817846, 'foo') #
Mon Aug 28 22:17:26 2006"
Use of uninitialized value in utime at -e line 1.

##</code><code>##

G:\>perl -w -e "utime(-A 'foo', 1156817846, 'foo') #Mon Aug 28 22:17:26 2006"