<![CDATA[
#!/usr/local/bin/perl
#入力データの取得
if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }
#取得データの前処理（CGIで定番のもの）
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
#メインの処理
if (length($FORM{'Kosuu'})<11){
$MESG="あなたは、$FORM{'Kosuu'} を入力しましたね。";}
else {$MESG="入力文字が長すぎます。";}
#出力
print "Content-type: text/html\n\n";
print "<head><title>CGIの応答</title></head>";
print "<body><h1>CGIの応答</h1>";
print "<hr>";
print "<span style={font-size:20pt}>";
print $MESG;
print "</span>";
print "</body>";
exit(0)
]]>