gistfile1.pl

#!/usr/bin/env perl

use Mojo::UserAgent;
use strict;
use warnings;
use 5.10.0;

my $ua = Mojo::UserAgent->new();
my $destination = 'ws://localhost:9999/down';

$ua->log->debug("Starting $$");

my $connect;
my $tx;
$connect = sub {
    my $c = shift;
    $tx = pop;
    if ( my $e = $tx->error ) {
        $ua->log->debug("error (retry in 5 seconds): $e");
        Mojo::IOLoop->singleton->timer(
            5 => sub { $ua->websocket( $destination => $connect ); } );
        return;
    }
    $ua->log->debug("connected to $destination");
};

$ua->websocket($destination => $connect);

Mojo::IOLoop->singleton->start;