#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
print "\n";
print "ＣＧＩのサンプル
\n";
print "
\n";
print "サブルーチンのサンプル
\n";
$rtn = sub01("arg1", "arg2", "arg3");
print "rtn = $rtn
\n";
print "
\n";
print "このＣＧＩのソース：sub01.cgi
\n";
print "\n";
sub sub01 {
print "sub01 (@_)
\n";
return ("rtn01");
}