#!/usr/local/bin/perl
	print "Content-type: text/html\n\n";

@ip = { 'xxx.xxx.xxx.xxx', 'xxx.xxx.xxx.xxx', 'xxx.xxx.xxx.xxx' };
foreach @ip {
    if($ENV{'REMOTE_ADDR'} eq $_) {
        print "何もない";
        exit;
    }
}

exit;

http://どこがエラーかわかるﾔｼいる？