Perlでsrandに大き過ぎる値を入れると?

とりあえず、試してみたのでメモ。