ファイル名: w/form.cgi

#!/usr/local/bin/perl


$Title = 'from サンプルプログラム?';

# ------------------- 関数 hogehoge ほげほげ?---------------

#@ ここに関数を使ったプログラムを書く!
#コピーしただけ

if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $QUERY_DATA, $ENV{'CONTENT_LENGTH'});
} else { $formdata = $ENV{'QUERY_STRING'}; }

# ----------------------HTML-------------------

print "Content-type: text/html\n\n";

print <<__HTML__;

<HTML>
<HEAD>
<TITLE>$Title</TITLE>
</HEAD>
<BODY bgcolor="#000000" text="#ffff99">

<center>
<P>
<BR>
<font size="6">
まず、これだけ。
<BR><BR>

$QUERY_DATA, $ENV{'CONTENT_LENGTH'}
$ENV{'QUERY_STRING'}

</font>

</center>
</BODY>
</HTML>

__HTML__

exit;