Net::WebSocket::Server->new(
      listen => 5000,
      silence_max => 0,
        on_connect => sub {
            my ($serv, $conn) = @_;
            $conn->on(
                binary => sub {
                while (sysread($socket, $byte, 1)== 1){
                    $conn->send_binary($byte) for $conn->server->connections;
                  }
                },
            );
        },
)->start;