#!/usr/bin/perl -w
use strict;
use IO::Socket;
my ($host, $port, $kidpid, $handle, $line);

unless (@ARGV == 2) { die "usage: $0 host port" }
($host, $port) = @ARGV;

# create a tcp connection to the specified host and port
$handle = IO::Socket::INET->new(Proto     => "tcp",
   PeerAddr  => $host,
   PeerPort  => $port)
   or die "can't connect to port $port on $host: $!";

$handle->autoflush(1);    # so output gets there right away
print STDERR "[Connected to $host:$port]\n";


# Get/display handshake message from server
my $handshake = <$handle>;
print $handshake;


# Socket loop
while (1) {
    my $servermsg = <$handle>;
    print $servermsg;
    while (1) {
        $line = <STDIN>;
        last if defined($line);
    }
    print $handle $line;
}