#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
print "
\n";
print "CGIのサンプル
\n";
print "
\n";
print "文字列の表示 (printのパラメータ)
\n";
print "Hello world.
\n";
print "
\n";
print "文字列の表示 (SYSIN入力)
\n";
# _EODという文字列があるまでを表示データとして読み込みます。
# HTMLをそのまま記述できるのが便利です。
print <<_EOD;
Hello world.
_EOD
print "
\n";
print "このCGIのソース:prn01.cgi
\n";
print "\n";