Help for this page
sub worker { .... ... ... my @workers = map threads->new( \&worker, ... ), 1 .. $WORKERS;
sub worker { .... ... ... my @workers = map threads->new( \&proxy, \&worker, ... ), 1 .. $WORKER +S;