>>312
ちょっと書いてみた。IO::Socket使っているからIO::Selectなんか使って……

use IO::Select;
してから、メインループのところを
my $select = IO::Select->new();
$select->add(\*STDIN, $socket);
while(my @ready = $select->can_read) {
foreach my $fh (@ready) {
if ($fh == \*STDIN) {
# 文字列を送信
chomp($_ =<>);
print $socket "$_\n";
$socket->flush();
} else {
# 文字列を受信
if ($buf = <$socket>) {
chomp $buf;
print "$buf\n";
}
}
}
}
て感じで。