use Socket;

socket(SOCKET, AF_UNIX, SOCK_STREAM, getprotobyname("tcp"));
unlink("pool");
$pool = sockaddr_un("pool"); #fail, get error message "Socket::pack_sockaddr_un not implemented on this architecture", "un" stands for "unix", compare with sockaddr_in ("in" stands for "inet") 
connect(SOCKET, $pool);