The results from perldoc -f srand on the latest stable
release of perl yield the following results.
"In versions of Perl prior to
5.004 the default seed was just the current
time(). This isn't a particularly good seed, so
many old programs supply their own seed value
(often time ^ $$ or time ^ ($$ + ($$ << 15))), but
that isn't necessary any more."