乱数を発生させるプログラム

発生させた乱数をどう使うかがポイントです。IF文で分岐させて出力するタグの内容を変えるだけでいろいろなページができます。
# 乱数を発生させるプログラム
# 乱数初期化(Perlのバージョンによっては必要ないので、必要ない場合には#をつけてコメントアウトする
# srand(time());

# 0から4の乱数を発生
$ransu=int(rand(5));