sub location {
　　　　　　　　my $url = shift; my $r_cookie = shift;
　　　　　　　　length($url) or ($url = $::FORM{'url'});
　　　　　　　　if ($::SYS{'liar'} && !$::FLAG{'mobile'}{'mode'}) {
　　　　　　　　　　　　print "Content-Type: text/html; charset=Shift_JIS\n\n<html><head>";
　　　　　　　　　　　　if (ref $r_cookie) {
　　　　　　　　　　　　　　　　local *cookie = $r_cookie;
　　　　　　　　　　　　　　　　my $cookie = ${&CGI::set_cookie($cookie{'name'}, $cookie{'value'}, $cookie{'expire'})};
　　　　　　　　　　　　　　　　chomp($cookie); $cookie =~ s/^Set-Cookie: //;
　　　　　　　　　　　　　　　　print qq|<meta http-equiv="set-cookie" content="$cookie">|;
　　　　　　　　　　　　}
　　　　　　　　　　　　$url =~ tr/;/&/; # 「;」だと上手くいかない
#　　　　　　　　　　　　print qq|<meta http-equiv="refresh" content="0;url=$url">|,
#　　　　　　　　　　　　　　　　　qq|</head></html>|;　←この2行をコメントアウト
print <<"_HTML_";
</head><body>ここを投稿完了とするなり適当なHTMLを作る</body></html>
_HTML_
　　　　　　　　}
　　　　　　　　else {
　　　　　　　　　　　　print "Location: $url\n";
　　　　　　　　　　　　if (ref $r_cookie) {
　　　　　　　　　　　　　　　　local *cookie = $r_cookie;
　　　　　　　　　　　　　　　　print ${&CGI::set_cookie($cookie{'name'}, $cookie{'value'}, $cookie{'expire'})},
　　　　　　　　　　　　}
　　　　　　　　　　　　print "Content-Type: text/html; charset=Shift_JIS\n\n";
　　　　　　　　}
　　　　}
__SUB__

>を追加し、フォームは変更できたのですが、
>これを、掲示板に反映する方法に詰まってしまいました。

これをまず考えて見ましょう、それからでないとフォームの作り方も表示のさせ方も決まりません