Help for this page
my %clients :shared; while( my $client = $server->accept; ... my $fileno = $clients{ client }; open $client, "+<&$fileno" or die ... ## dup() the the glob from the f +ileno ## use $client
while( my $client = $server->accept ) { async{ ... } }->detach; }