perlの擬似乱数に周期性があることを発見しました。2147483648周期と思われます。
処理系で異なるのかも知れませんが、この場合は乱数ジェネレーターが
32ビットで処理しているからだからだと思います。
これは２ちゃんねるのトリップを生成するプログラムを実行中に気づきました。

別に発見して嬉しいわけではなくて、周期性があっては困るので何とかしたいのです。
どうすればこの周期性を回避して乱数を発生させることが出来るのでしょうか？