$socket = new IO::Socket::INET(PeerAddr => $server, PeerPort => $port, Proto => "tcp") $socket2 = new IO::Socket::INET(PeerAddr => $server, PeerPort => $port, Proto => "tcp")