Perl コーディング初心者質問コーナー Part28

1：KENTWEBのCOMCHATにROMの人数を表示したいです。
http://www.kent-web.com/chat/comchat.html

2：ゆいちゃっとのROM機能を写して見た。

3：表示されず失敗した。

ソースに何を加えればいいか教えてください。