sub func() {
    srand $CONSTANT;
    ... do stuff using a known sequence ...
}
my $seed = srand;
my $random1 = rand;
func();
srand $seed;  # Get back to "random" sequence again?
my $random2 = rand;