>>336
>while ($s->read($line, 8192) > 0) {
これだと相手が細切れに送ってくる場合、抜ける可能性あり。

>>338
>perl -e 'use encoding "iso-2022-jp"; scalar(<>);'
Jcode MLで聞いた方が早い。