$sock = IO::Socket::INET->new(Proto	=> 'tcp',
                            PeerPort	=> $portp, --> Primary host
                              PeerAddr	=> $hostp,
			      Timeout   => 5)

||$sock = IO::Socket::INET->new(Proto	=> 'tcp',
				PeerPort => $ports, --> secondary host
				PeerAddr => $hosts)
							  
		or die "Can't create socket: $!\n";