Help for this page

Select Code to Download

Select or download this

 if (socket(SOCKET, PF_UNIX, SOCK_STREAM, 0)) {
        connect(SOCKET, sockaddr_un($file)) || die "Could not connect:
+ $!";
        print SOCKET $cmd;
        @results = <SOCKET>;
        print @results;

Select or download this

socket(SERVER, PF_UNIX, SOCK_STREAM, 0) || die "Could not create socke
+t: $!";
unlink("$file");
...
    }
}