my ($fd1, $fd2) = winsocketpair();

##</code><code>##

use Socket qw( AF_UNIX SOCK_STREAM PF_UNSPEC );
socketpair(my $fd1, my $fd2, AF_UNIX, SOCK_STREAM, PF_UNSPEC)