Select Code to Download

       if ($sock->connect(pack_sockaddr_in($rport, $raddr))) {
#            ${*$sock}{'io_socket_timeout'} = $timeout;
            return $sock;
        }

BEGIN {
    *CORE::GLOBAL::connect = sub(*$) {
...

$sock->syswrite("GET / HTTP/1.0\r\n");
$sock->close();

        if (my $mysock = $sock->connect(pack_sockaddr_in($rport, $radd
+r))) {
            print "DEBUG orig glob: $sock\n";
...
            print "DEBUG reblessed: $mysock\n\n";
            return $mysock;
        }

$ ./883113.pl
DEBUG orig glob: IO::Socket::Foo=GLOB(0x9929e8)
...
DEBUG reblessed: IO::Socket::INET=GLOB(0x9929e8)

$sock is: IO::Socket::INET=GLOB(0x9929e8)

$ ./883113.pl
DEBUG orig glob: IO::Socket::Foo=GLOB(0x9929e8)
...
                                                      |
$sock is: IO::Socket::INET=GLOB(0x992688)  <--- != ---
Broken pipe!