Create your own rand()-like function. That way, you don't have to change the random-seed for other users of rand(). Also, that way you're immune to changes in perl's rand() between versions. (Which isn't that unlikely; it's been changed fairly recently.)