#! perl -slw
use strict;
use threads;
use threads::shared;
use IO::Socket::INET;

our $I ||= 1000;
our $T ||= 100;

my $running :shared = 0;

sub thread {
    { lock $running; ++$running }
    for( 1 .. $I ) {
        my $server = new IO::Socket::INET( 'localhost:88888' )
            or warn "connect failed: $!" and sleep 1 and next;
        my $ip = join '.', map{ int rand 256 } 1 .. 4;
        print $server $ip;
        printf "$ip was reported as a member of %s", scalar( <$server> );
        close $server;
    }
    { lock $running; --$running };
}

threads->create( \&thread )->detach for 1 .. $T;

sleep 1 while $running < $T;

while( 1 ) {
    sleep 1 until $running < $T;
    threads->create( \&thread )->detach;
}

__END__
...
86.11.176.198 was reported as a member of n/a
222.75.137.143 was reported as a member of n/a
161.31.232.201 was reported as a member of 21852
93.42.178.58 was reported as a member of n/a
219.220.7.27 was reported as a member of 4538
235.24.7.24 was reported as a member of n/a
227.191.55.46 was reported as a member of n/a
206.129.179.146 was reported as a member of 6347
241.200.47.144 was reported as a member of n/a
114.121.196.146 was reported as a member of n/a
23.138.46.31 was reported as a member of n/a
107.39.33.164 was reported as a member of n/a
183.93.218.229 was reported as a member of n/a
223.233.44.15 was reported as a member of n/a
232.140.217.73 was reported as a member of n/a
203.175.78.140 was reported as a member of n/a
204.118.18.156 was reported as a member of 1239
33.185.129.154 was reported as a member of 721
229.141.204.6 was reported as a member of n/a
66.187.219.196 was reported as a member of 22183
132.103.88.186 was reported as a member of 568
49.161.3.238 was reported as a member of n/a
...