ted@skywalkerii ~
$ perl client.pl
2006/03/08-02:31:02 CONNECT TCP Peer: "127.0.0.1:1245" Local: "127.0.0.1:8097"
Use of uninitialized value in concatenation (.) or string at server.pl line 23.
Got: >Line =
<
#!/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 (my $receive = <$sock>) {
    print "Got: >$receive<\n";
}