#! perl -slw
use strict;
use IO::Socket;

my $con = IO::Socket::INET->new( 'localhost:54321' );

print $con "ping"  while sleep 1;

print "client ended";