#! /usr/bin/perl
@kuji = ('大吉', '中吉', '小吉', '吉', '末吉', '凶');
@tips = (
'何をしても絶好調な一日。新しいことにチャレンジしてみると良いでしょう。',
'良いことが起きます。上を向いて歩くと、UFOを目撃できるかもしれません。',
'ちょっとした幸運あり。下を向いて歩くと、小銭が拾えるかも知れません。',
'心の平安あり。トイレで読書すると吉。',
'運気上昇の兆し。家にこもると吉ですが、家族に掃除機でどつかれるので注意。',
'災厄の日。入浴すると吉ですが、湯船で眠るとそのまま沈むので注意。'
);
# おみくじを引く
$role = int(rand(6));
# CGIヘッダの出力
print "Content-type: text/html\n\n";
# HTMLの出力
print "\n";
print "\n";
print "Perlおみくじ\n";
print "今日のあなたの運勢は……$kuji[$role]です。
\n";
print "$tips[$role]
\n";
print "";