srand($known_thing);
# code relying on $known_thing
srand(0);

##</code><code>##

sub with_srand {
    srand(shift);
    $_[0]->(@_[1..$#_]);
    srand();
}

# later
with_srand $known_thing, sub { ... }, args...;