#!/usr/bin/perl
# client

 use strict;
 use warnings;

 use IO::Socket;

 $| = 1;

 my $socket = IO::Socket::INET->new(
     'Proto'    => 'tcp',
     'PeerAddr' => '127.0.0.1',
     'PeerPort' => '8888',
 ) or die $@;

 my $msgOut = "hello, server\n";
 while (1) {
     print $socket $msgOut;
     my $msgIn = <$socket>;

     print "client received echo:$msgIn\n";

     sleep 1;
 } ## end while (1)