sub DispError{
my $title=@_[0];
my $topic=@_[1];
print "Content-type: text/html; charset=shift_jis\n\n";
#-----------------------------------------------------------------------
print <<EOF;
<html><head><title>$title</title><meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS"></head><body bgcolor="#FFFFFF"><!-- 2ch_X:error -->
<font size=+1 color=#FF0000><b>$topic</b></font><ul><br>ホスト<b>$HOST</B><br><b>$FORM{'subject'} </b><br>名前： $FORM{'FROM'}<br>E-mail： $FORM{'mail'}<br>内容：<br>$FORM{'MESSAGE'}<br><br></ul><center>こちらでリロードしてください。<a href="../$FORM{'bbs'}/index.html"> GO! </a><br>分からないことがあったら<a href="http://info.2ch.net/guide/">２ちゃんねるガイド</a>へ。。。<br><br>
アクセス規制・プロキシー制限等規制は、<a href="http://2ch.tora3.net/">２ちゃんねるビューア</a>を使うと回避できることがあります。</body></html>

EOF

#-----------------------------------------------------------------------
exit;
}