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;