#! /usr/bin/perl
# さいころを振る
$n = int(rand(6)) + 1;
# 半か丁か
if($n % 2 == 0) {
$msg = "丁です。";
}
else {
$msg = "半です。";
}
# CGIヘッダの出力
print "Content-type: text/html\n\n";
# HTMLの出力
print "\n";
print "\n";
print "Perlさいころ\n";
print "さいころの目は$nです。$msg
\n";
print "";