in reply to The Spudgun
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.
In Section
Cool Uses for Perl