Select Code to Download

    sub os_port {
        foreach (@_) {
...
        }
        $sock;
    }

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

        $sock_string = <$sock>;