use Mojo::IOLoop::Client;
my $client = Mojo::IOLoop::Client->new;
$client->on(connect => sub ($client, $handle) {print "on_connect\n"});
$client->on(error   => sub ($client, $err)    {print "on_error\n"});
$client->connect({address => 'host_atlas', port => 1024});

$client->reactor->start unless $client->reactor->is_running;
print 'done';