#! perl -slw
use strict;
use Time::HiRes qw[ time ];
use IO::Socket;

our $R //= 1;
$\ = $/ = chr(13).chr(10);

my $svr = IO::Socket::INET->new( "localhost:12345" )
    or die "Client: First client connect failed $^E";
print "Client connected";

my $last = time;
my $exchanges = 0;
while( 1 ) {
    print {$svr} "Hello"x $R or die "$! / $^E";
    chomp( my $in = <$svr> );
    ++$exchanges;
    if( int(time()) > int($last) ) {
        printf "Rate: %.f exchanges/sec)\n",
            $exchanges / ( time() - $last );
        $last = time;
        $exchanges = 0;
    }
}