if ( ! ($ENV{'REQUEST_METHOD'} eq "POST") ){

print "Content-type: text/html\n\n";
print "<html><body>エラー</body></html>\n";

exit;

}