#!/usr/bin/perl
use IO::Socket::INET;
use IO::All;

my $cl = IO::Socket::INET->new(  PeerAddr => "$ARGV[0]:9999") or die "connect error\n";

$| = 1;
print $cl "$ARGV[1]\n";
$n = <$cl>;
chop($n);
$/=undef;
<$cl> > io $n;