} elsif ($sort eq 'ax25' || $sort eq 'prog') {
local $^F = 10000; # make sure it ain't closed on exec
my ($a, $b) = IO::Socket->socketpair(AF_UNIX, SOCK_STREAM, PF_UNSPEC);
} elsif ($sort eq 'ax25' || $sort eq 'prog') {
local $^F = 10000; # make sure it ain't closed on exec
my ($a, $b) = IO::Socket->socketpair(AF_UNIX, SOCK_STREAM, PF_UNSPEC);