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