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);
}