my $sock = new IO::Socket::INET(
		PeerAddr => $addr,
		PeerPort => "poke($nPOKEPORT)",
		Proto => 'tcp',
		Timeout => $nPOKESERVERTIMEOUT
	);