if (my $mysock = $sock->connect(pack_sockaddr_in($rport, $raddr))) {
            print "DEBUG orig glob: $sock\n";
            print "DEBUG open glob: $mysock\n";
            bless $mysock, ref($sock);
            print "DEBUG reblessed: $mysock\n\n";
            return $mysock;
        }