benchmarking number of connects in perl tcp server