or download this
% perl -de 0
...
DB<1> $c=0; print ''.localtime(),$/; $c++ while rand; print ''.local
+time(),$",$c,$/
...
DB<2> $c=0; print ''.localtime(),$/; $c++ while rand; print ''.local
+time(),$",$c,$/
Tue Apr 16 07:57:28 2002
Tue Apr 16 07:57:28 2002 82230