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

##</code><code>##

		while (<$sock>) {
			$sock_string = $_;
			last;
		}

##</code><code>##

		$sock_string = <$sock>;