Select Code to Download

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

sub with_srand {
    srand(shift);
...

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