#!/usr/bin/perl -w
use strict;

use IO::Socket;
use Getopt::Long;

my $port = 9999;
my $server = 'localhost';

$| = 1;

my $sock = IO::Socket::INET->new(PeerAddr => $server,
				 PeerPort => $port)
  || die "Could not open socket to $server:$port: $!\n";

while (<>) {
  chomp;
  print "$_\n";
  print $sock "$_\r\n";
}

while (<$sock>) {
  print;
}