#! /usr/bin/perl # CGIヘッダの出力 print "Content-type: text/html\n\n"; # さいころを振る $r = rand(6); $d = int($r) + 1; # HTMLの出力 print "\n"; print "\n"; print "Perlさいころ\n"; print "

さいころの目は$dです。

\n"; print "";