>>338
こっちだと、Winの処理系にWin98SE 使っているからかな？
-ループ部分
select $socket; $|=1; select STDOUT; $|=1;
if ($pid = fork()) {
　while (<STDIN>) {
　　print $socket $_; # send($socket,$_,0);
　}
} elsif (defined $pid) {
　while(<$socket>) {
　　chomp;
　　print $_,"\n";
　}
}

これで動くことは動いた。
POEやIO::Selectは、(ハマりそうだから)確認すらしていないけど。