>>701
726行目あたりにある
push(@new,"$times<>$in{'name'}<>$host<>\n");
を
if ($_[0] ne 'bye') {
push(@new,"$times<>$in{'name'}<>$host<>\n");
}
に変えてみそ。
多分これでいける