$ perl -le'print "".localtime($^T)'
Mon Jul 27 12:16:06 2009

$ perl -le'print "".localtime($^T)'
Mon Jul 27 12:16:07 2009

$ perl -le'print "".localtime($^T)'
Mon Jul 27 12:16:08 2009

$ perl -le'print "".localtime($^T)'
Mon Jul 27 12:16:09 2009