最近Windows様の機嫌が悪くて、起動時にブルーパニックを起こすだとか、
メモリが刺さってるとExplorerがおかしいとか言いだしたりして、
どうにかしてる暇がなかったもんで。
なんとか最近は安定してきた（めもりが減ったけど）んで、
IP表示は速攻やってみます。
（実は今手元に実物がないからいちいちダウンロードしなきゃいけないって話は秘密）

取りあえず、IPの数字を純粋に取り出す方法。

$server = $ENV{'REMOTE_HOST'};

これを１４行目あたりに書き込んで、

$line = "$now\t$name\t$addr\t$text\t$server\n";

61行目のこれに赤字の部分を追加して、

($date, $name, $addr, $text,$server) = split(/\t/, $line);

116行目にもこのように追加する。

これで、とりあえず書き込んだ人のIPアドレスがログに追加されます。
もっといえば、このままではホスト名は分からないんで、
gethostbyaddressを使うと完璧。