sub os_port {
		foreach (@_) {
			$sock = new IO::Socket::INET(PeerAddr => $server,
						     PeerPort => $_,
						     Proto    => 'tcp');
			last if $sock;
		}
		$sock;
	}