#file: test.Mango.pl

 use strict;
 use warnings;

 use Mango;
 use feature 'state';
 use Data::Dumper;

 my $connect_string=$ARGV[0];
 sub mango { state $m = Mango->new($connect_string)}
 my $doc = mango->db('mydb')->collection('mycoll')->find_one();
 print Dumper $doc;