my $unixname = named_sock_spawn(sub{ exec "ssh" });

sub named_sock_spawn {
    socket();bind();listen();
    fork() and return $name;
    accept();dup();dup();$fun->();
}