>>40
・他のPCの発言をログに書き出す

>>50 に追加
print "$chat\n";
openchatprint($chat) ;＜＝追加

} elsif ($switch eq "008E" && length($msg) >= unpack("S1", substr($msg, 2, 2))) {

====
これも追加
sub openchatprint {
my $chat = shift;
my $dump;
$dump = "$chat\n";
open DUMP, ">> chat.txt";
print DUMP $dump;
close DUMP;
}
時間が残らない
日付ではなく時間を入れたいのだが…