use IO::Socket;
my $sock = IO::Socket::INET->new("127.0.0.1:7000") or die "Cannot connect: $!";
print "connected.  enter command: ";
my $cmd = <STDIN>;
print $sock $cmd;
while (<$sock>) {
  print;
}