websocket_echo.pl

use Mojolicious::Lite;

websocket '/echo' => sub {
    my $self = shift;
    $self->on(message => sub {
        my ($self, $message) = @_;
        $self->send("echo: $message");
    });
};

app->start;