mishin

#!/usr/bin/env perl
use strict;
use warnings;
use Mojo::Base -base;
use Mojo::UserAgent;

my $ua = Mojo::UserAgent->new;
$ua->websocket(
    'wss://10.0.3.1:17070' => sub {
        my ($ua, $tx) = @_;