#! /usr/bin/perl # フォームデータ取得 if($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN, $query, $ENV{'CONTENT_LENGTH'}); } else { $query = $ENV{'QUERY_STRING'}; } # サーバ出力 print < フォームデータ

フォームデータ

$query

end