#! /usr/bin/perl
# さいころを振る
$n = int(rand(6)) + 1;
# CGIヘッダの出力
print "Content-type: text/html\n\n";
# HTMLの出力
print "\n";
print "\n";
print "Perlさいころ\n";
print "\n";
print "さいころの目は$nです。
\n";
# 御言葉を出力
if($n == 4) {
print "ふ、不吉な……。4が出ました。
\n";
}
print "";