Jeroen
"We are not alone"(FZ)

use strict;
my $savedseed = 1234567;
srand $savedseed;
my $savedct = 0;
my $rnd;
foreach (1..5) {
   $savedct = $_;
   $rnd = rand;
   print "$savedct: $rnd\n";
}
print "\n";

srand $savedseed;
foreach (1..$savedct) {
   $rnd = rand;
   print "$_: $rnd\n";
}
print "\n";
print $savedct+1, ": ", rand, "\n";
[download]

1: 0.03509521484375
2: 0.139495849609375
3: 0.08056640625
4: 0.35931396484375
5: 0.123077392578125

1: 0.03509521484375
2: 0.139495849609375
3: 0.08056640625
4: 0.35931396484375
5: 0.123077392578125

6: 0.814605712890625
[download]

--Jim

Update: Capitalizing on the fact that "srand $seed" will produce the same sequence of numbers as long as the same value for $seed is used. See srand and seed for more details.

initstate() and setstate() have to do with the random() call, but perl may not be using random() so they'd be of no use to you. You can tell with: perl -Vrandfunc. For example, 5.6.1 compiled on RedHat 7.1 with the defaults is using drand48(), not random()