#!/usr/local/bin/pyrperl -w
#Client
use strict;
use Time::HiRes qw[ time usleep ];
use IO::Socket::INET;

$\ = $/ = chr(13).chr(10);
my $rdata = ""; for ( 0..255) { $rdata .= chr($_); }
my $len = pack 'N',length($rdata);
my $sdata = $len . $rdata;
print length($rdata),"\n";
my $svr = IO::Socket::INET->new( "localhost:12345" )
    or die "Client: First client connect failed $^E";
binmode $svr; $| = 1;
print "Client connected";

    my $last = time + 1; my $exchanges = 0;
    while( 1 )
    {    send( $svr, $sdata, length($sdata), 0 ) or die "$! / $^E";
        my $in;
        recv ( $svr, $in, 4, 0 );
        if ( defined $in )
        {    my $len = unpack('N',$in);
            recv ( $svr, my $data, $len, 0 );
            if ( $rdata ne $data ) { die "3. $! \n"; }
            ++$exchanges; # print "$len\t$exchanges\n";
           if( time > $last )
            {
               my $rate = sprintf( "%.f", $exchanges );
                   print "$$ Rate: $rate exchanges/sec\n";
                $last = time + 1; $exchanges = 0;
            }
        }
   }