CGI.pm を使って200以外のステータスコードを返すには、 my $cgi = new CGI; print $cgi->header( -status => '404 Not Found', ); print $error_document; # 自前のエラードキュメントを出力。 のようにすればいいのですが、mod_perl環境下で上のコードを実…