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.