Select Code to Download

use constant SOCK_PATH => '/tmp/catsock';

...
    my $n = unpack_sockaddr_un(getsockname(Client));
    logmsg 'peer: ' . $n . "\n" . <Client>;
}

int svc_recv(int fd, char *buffer, size_t size, struct ucred *cred) {
        char            control[1024];
...
        return result;
}