#!/usr/bin/perl $unsei=int(rand(5)); if($unsei==0){ $n="01"; $title="大吉"; } elsif($unsei==1){ $n="02"; $title="中吉"; } elsif($unsei==2){ $n="03"; $title="小吉"; } elsif($unsei==3){ $n="04"; $title="吉"; } elsif($unsei==4){ $n="05"; $title="凶"; } print "Content-type:text/html\n\n"; print < $title
URANAI