$socketname = "/tmp/mysocket";
socket(SOCK, PF_UNIX, SOCK_STREAM, 0)   or die "socket: $!";
connect(SOCK, sockaddr_un($socketname)) or die "connect: $!";