#!/usr/bin/perl -w
# client

use strict;
use IO::Socket::INET;

my $sock = IO::Socket::INET->new(PeerHost => 'localhost',
                                 PeerPort => 8097,
                                 Proto => 'tcp',
                                );
die "Unable to connect" unless $sock->connected();

while (<$sock>) {
    print "Got: >$_<\n";
}