perl -Mthreads=stack_size,4096 -MIO::Socket -E"async{ IO::Socket::INET->new( 'localhost:' . 12300 + threads->tid ); sleep }->detach for 1 .. 20; sleep"