use Socket qw( AF_UNIX SOCK_STREAM PF_UNSPEC );

sub winsocketpair {
    socketpair(my $fh1, my $fh2, AF_UNIX, SOCK_STREAM, PF_UNSPEC)
        or return ();
    return ($fh1, $fh2);
}
[download]

(From Re^4: why IPC::Open3 can't execute MS-DOS "dir" command?)