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

my $host = $ARGV[0] ;
$|++ ;

my $con = IO::Socket::INET->new( "$host\:54321" )  or die "failed to connect: $!" ;

while (print $con "ping\n") { print "*" ; sleep 1 ; } ;

print "client ended: $!\n";