#!/usr/bin/perl
use strict;
use warnings;
use Net::WebSocket::Server;

Net::WebSocket::Server->new(
      listen => 5000,
      silence_max => 0,
        on_connect => sub {
            my ($serv, $conn) = @_;
            $conn->on(
                binary => sub {
                  my ( $conn, $message ) = @_;
                  $conn->send_binary($message);
                },
            );
        },
)->start;