mod_perl な環境で、Perl5.8 の rand() を繰り返すと
同じ数列が発生しちゃうんだけど、やっぱり srand() 必要?