Select Code to Download

use Math::Random::MT qw(srand rand);
sub seed_prng {
...
  srand($seed);
  return $seed;
}