#! perl -slw
use strict;
use IO::Socket;
use Time::HiRes qw[ sleep ];
use threads stack_size => 4096;  ## Tip: This significantly reduces threads memory usage 

$\ = $/ = chr(13) . chr(10);

sub connection {

    my $svr;
    do {
        $svr = IO::Socket::INET->new( 'localhost:12345' );
    } until $svr;
    
    while( 1 ) {
        my $msg = int( rand 2**30 );
        my $reply;

        print $svr $msg;
        $reply = <$svr> until $reply;
        chomp $reply;
        warn 'Mismatch' unless $msg + 1 == $reply;
        sleep 0.001;
    }
}

async( \&connection )->detach for 1 .. 300;

sleep 1000;