>>9
Perl4までは、srandで一旦初期化する必要があったのだ
しかし5からはsrandはいらない