Help for this page

Select Code to Download


  1. 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
    
  2. or download this
        perl -MConfig -e 'print $Config{randbits}'