use IO::Socket::SSL;
my $client = IO::Socket::SSL->new('host_atlas:1024')
    or die "error=$!, ssl_error=$SSL_ERROR";
print 'done';

##</code><code>##

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';

##</code><code>##

use feature 'state';
use Mango;
use Mojo::IOLoop::Client;

my $connect_string=$ARGV[0];
sub mango { state $m = Mango->new($connect_string);}
  mango->db('mydb')->list_collections(sub {
   my ($db, $err, $cursor) = @_;
   print "YESSSSSSSSSSS !!!!\n";
 });
 Mojo::IOLoop->start unless Mojo::IOLoop->is_running;