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;
    }
}