sub notxs {
    my $Rdr;
    my $Wt;
    use Socket;
    socketpair($Rdr, $Wtr, AF_UNIX, SOCK_STREAM, PF_UNSPEC);
    return $Rdr, $Wtr;
}