#! 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";

##</code><code>##

use strict ;
use IO::Socket ;
$|++ ;

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

for (1..20) {
  print $con "ping\n" ; print "*" ; sleep 1 ;
} ;

print " client hanging" ;

while (1) { print "." ; sleep 60 ; } ;