gistfile1.txt

my $websocket_URL = 'myURLhere';
sub websocket_loop {
  my ($ua, $tx) = @_; 
  say 'WebSocket handshake failed!' and return unless $tx->is_websocket;

  $tx->on(finish => sub {
   print "websocket killed!!! trying reconnect...\n";
   $ua->websocket($websocket_URL => \&websocket_loop);
  }); 

  print "Computer Connected!\n";
  $tx->send({json => {msg => 'Computer Connected!'}});
  Mojo::IOLoop->recurring(0 => sub {
        $tx->send({json => {msg => 'cool things get sent here'}});
     }   
  }); 
}
$ua->websocket($websocket_URL => \&websocket_loop);