$sock = IO::Socket::INET->new(PeerAddr => $ips[$index].':'.$port, Blocking => 0);