#!/usr/bin/perl
#
# インターネットくじ
#
# ↓カスタマイズ可能な変数↓
$title = "Internet KUJI";
$kakuritu = 10; # １／$kakurituの確率で当たりが出る
# ヘッダー出力
print "Content-type: text/html\n\n$title";
# 秒の情報だけを得る
($sec,@dummy) = localtime(time);
print "";
# 当たる確率は１／$kakuritu！
if($sec % $kakuritu == 0){
print "おめでとうございます！
今日のあなたは運が良いですよ♪
";
} else {
print "今日は普通の日ですが、努力次第で良い日になるでしょう！
";
}
print "