$ref->{poolObj} = $clientPool; exit 1 if ($clientPool->startPool(baseThreads => 10, moduleName => "SERVER::Main", subName => "clientThreadPool", values => $ref));