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

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