CGIでPerlを使って作っています。
具体的には,外部に拒否IPリストを作り,それを最初に読み込ませて色々なCGIで使おうと考えています。

元はこういう感じで,これならば,きちんと動作します。
# アクセス制限(ホスト名、IPアドレスを記述)
@deny = (
"*.anonymizer.com",
"cache*.*.interlog.com",
""
);

そこを,

$denyIP = './denyIP.dat';
open(IN,"$denyIP") || &error("Open Error : $denyIP");
@deny = <IN>;
close(IN);

【denyIP.datの中身】
"*.anonymizer.com",
"cache*.*.interlog.com",
""

このように外部から読み込もうとしているのですが,動作してくれません。
外部から読み込んだデータについては,まだ何か設定などあるのでしょうか?