Help for this page

Select Code to Download

Select or download this

BEGIN { 
  our @RAND = ();
...
  *CORE::GLOBAL::srand = sub(;$){ $COUNTER = 0 }; 
  *CORE::GLOBAL::rand  = sub(){ return $RAND[$COUNTER++] };
}