http://www.mirai.ne.jp/~mikeneko/yuibot/yui/chat/kill/kill.htmlの

###ここから下を挿入します。
&hostcheck;
sub hostcheck{
local($host_file,$remote_host,$line);
local(@lines);
$host_file = './host.dat';
$host=$ENV{'REMOTE_HOST'};
open(DB,"$host_file") || die "Cannot Open Log File $host_file: $!";
@lines = <DB>;
close(DB);
foreach $line (@lines) {
next if(length($line)<4);
chop $line;
if( $host=~/$line/ ){print "Status: 204\n\n";exit;}
}
}#hostcheck END
###ここまで。
###ここから下は、元のスクリプトと同じです。

が自分の求めているものに近いのですが
ＩＰで弾くことができません。