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

##</code><code>##

socket(SERVER, PF_UNIX, SOCK_STREAM, 0) || die "Could not create socket: $!";
unlink("$file");
 
bind(SERVER, $addr) || die "Could not bind: $!";
 
listen(SERVER,SOMAXCONN) || die "Could not listen: $!";
 
while (accept(CLIENT,SERVER) || die "could not accept: $!") {
    $cmd = <CLIENT>;
    if ($cmd) {
        $cmdd = "ssh2 rob\@machine_b $cmd";
                                                                                                       
        open(CMD, "$cmdd |");
            @results = <CMD>;
        close(CMD);
                                                                                                       
       print CLIENT @results;
    }
}