use warnings;
use CouchDB::Client;

my $c = CouchDB::Client->new(uri => 'http://127.0.0.1:5984/');
my $db = $c->newDB('test');
my $doc = $db->newDoc('12345', undef, {'foo'=>'bar'})->create;

if ($db->docExists('12345')){
    print "hello\n";
}

#my $doc=CouchDB::Client::Doc->new($db);
print $doc->retrieve('12345');