いよいよIPで蹴飛ばしの技です。
まずは相手のIPを用意してください。
で
@logs = <file>;
if ($datasize > 0) {

上記2行の間に、
if ($server != "けとばすIP" ) {
を追加。

閉じ括弧('}')を
}
flock(FILE, 8);
の間の行に追加。

これで大丈夫。

これのひどいところは、書いた瞬間はちゃんと書き込まれたようにみえる。
でも、リロードすると消えている。（そりゃそうだ、ログに書けないようにしているだけだからな）


複数の場合は、
@kick とか言う名前のリスト変数を作って
そこに列記してからforeachで探させると吉。