% perl -de 0
...
  DB<1> $c=0; print ''.localtime(),$/; $c++ while rand; print ''.localtime(),$",$c,$/
Tue Apr 16 07:57:24 2002
Tue Apr 16 07:57:24 2002 55285

  DB<2> $c=0; print ''.localtime(),$/; $c++ while rand; print ''.localtime(),$",$c,$/
Tue Apr 16 07:57:28 2002
Tue Apr 16 07:57:28 2002 82230