ファイルを読み込み、URL転送をしたい

質問

URL転送するプログラムを作成してます。

以下のURLでアクセスします。
http://hoge.com/index.cgi?mou=1

以下のデータ構成となってます。

dat.cgiのデータ
1<>http://google.co.jp/
2<>http://yahoo.co.jp/
3<>http://goo.ne.jp/
4<>http://msn.co.jp/

この場合1レコード目のURLを転送しgoogleのサイトを表示させたいのですが、初歩的なミスでサーバーエラー
500を表示しています。

index.cgi
(ここから)
#!/usr/bin/perl
# 文字コード取得
require './jcode.pl';

$datfile = "./dat.cgi";

open(DB,"$datfile") || &error("Open Error : $datfile");
@lines = <DB>;
close(DB);

@new=();
foreach $line (@lines) {
$flag=0;
($num,$mourl) = split("<>", $line);
foreach $mou (@DEL) {
if ($mou eq "$num") { print "Location: $mourl"; }
}

}
(ここまで)

同じホルダーに
jcode.pl
dat.cgi
は入っています。

申し訳ありません。よろしくご指導をお願いいたします。

回答No.1

ORUKA1951

これだけではわかりませんが、
サーバーのエラーログはどうなってますか？
ローカルでテストした結果は？ $ perl index.cgi
ローカルサーバーでの結果は？
　http://local.host/index.cgi?mou=1

補足

回答ありがとうございます。
>サーバーのエラーログはどうなってますか？
確認しているのですが、よくわかりません。

>ローカルサーバーでの結果は？
500のエラーとなっています。

>これだけではわかりませんが、
やっぱりわからないでしょうか?
ファイルを読むために何が必要で、あるのかも良く分かってません。

なんとなくですが、データを読み込むために必要な情報がこのプログラムだけでは足らないような感じがしています。

ありがとうございます。
もう少しがんばってみます。