gistfile1.txt

use Mojo::UserAgent;
use warnings;
use strict;
use 5.14.0;

my $ua = Mojo::UserAgent->new;

$ua->websocket('ws://username:password@localhost:8088/ari/events?app=demo' => sub {
  my ($ua, $tx) = @_;
  say "WebSocket handshake failed!" and return unless $tx->is_websocket;
  $tx->on(finish => sub {
    my ($tx, $code, $reason) = @_;
    say "WebSocket closed with status $code.";
  });
  $tx->on(message => sub {
    my ($tx, $msg) = @_;
    say "WebSocket message: $msg";
    $tx->finish;
  });
});

Mojo::IOLoop->start unless Mojo::IOLoop->is_running;