Try Win32::Socketpair::winopen2().
In reply to Re: Automating GDB using perl script by BrowserUk in thread Automating GDB using perl script by perl_sck_58