$socket = new IO::Socket::INET(PeerAddr => $server, PeerPort => $port, Proto => "tcp") $socket2 = new IO::Socket::INET(PeerAddr => $server, PeerPort => $port, Proto => "tcp")
my @a = (); for(1..10) { my $b = IO::Socket::INET -> new('127.0.0.1:1234') || next; push(@a, $b); }