CGI エラー

#!/usr/bin/perl

#↑perlのパスを自分の環境に合わせて書き直します。
#大抵は、「#!/usr/bin/perl」　か　「#!/usr/local/bin/perl」です。
#解らない場合はサーバー管理者(もしくはプロバイダー)に
#確認してください。

################################################################
# WL-News [ニュース管理] (Since:2001/10/13)
#   (C) 2001-2003 by yomi
#   Eメール: yomi@pekori.to
#   WebSite: http://yomi.pekori.to/
################################################################

## ---[利用規約]------------------------------------------------------------+
## 1. このスクリプトはフリーソフトです。このスクリプトを使用した
##    いかなる損害に対しても作者は一切の責任を負いません。
## 2. このスクリプトを使用した時点で利用規約(http://yomi.pekori.to/kiyaku.html)
##    に同意したものとみなさせていただきます。
##    ご使用になる前に必ずお読みください。
## -------------------------------------------------------------------------+
use strict;
##-- ディレクトリの構成を変更した場合のみ修正 --##
#ディレクトリの末尾に「/」は付けないでください
my $LIB_PATH='./lib'; #ライブラリのディレクトリ
my $TMPL_PATH='./wn_tmpl'; #テンプレートのディレクトリ
my $LOG_PATH='./log'; #ログのディレクトリ
my $LOCK_PATH='./lock'; #ロック/一時ファイルのディレクトリ
my $jcode='sjis'; #文字コード(sjis/euc)
my $gzip=''; #gzipへのパス(使用しない場合には変更しないでください)

##-- 以下、修正不要 --##

unshift(@INC,$LIB_PATH);

require Wlnews;

my $proc=Wlnews->new( #コントロールオブジェクトの作成
	lib=>$LIB_PATH,
	tmpl=>$TMPL_PATH,
	log=>$LOG_PATH,
	lock=>$LOCK_PATH,
	jcode=>$jcode,
	gzip=>$gzip,
);

$proc->run;

exit;

BEGIN{
#文字コードをEUCにする場合には修正(Shift_JIS/EUC-JP)
$main::HTTP_HEADER_CHARSET="Shift_JIS";

my $HTTP_HEADER_CONTENT_TYPE="Content-type: text/html; charset=$main::HTTP_HEADER_CHARSET\n\n";
my $DIE_CGI_ERROR_FL=undef;
	sub main::DIE_CGI_ERROR{
		my $mes=shift;
		my $back=$ENV{'HTTP_REFERER'}?qq([<a href="$ENV{'HTTP_REFERER'}">戻る</a>]):
			qq{<form><input type=button value=" 戻 る " onClick="history.back()"></form>};
		print $HTTP_HEADER_CONTENT_TYPE unless $DIE_CGI_ERROR_FL;
		$DIE_CGI_ERROR_FL=1;
		print qq(
			<html><h1>CGI エラー</h1>
			エラーメッセージ：<br>
			$mes
			<hr>
			$back
			</html>
		);
	}
$main::SIG{__DIE__}=\&main::DIE_CGI_ERROR;
};

##-- end of wlnews.cgi --##