Quick note I didn't know either before it was pointed out to me: Perl will seed the RNG with a good value on its own. You needn't do that yourself. See perldoc -f srand.

Makeshifts last the longest.