gistfile1.pl

use common::sense;
use EV;
use AnyEvent;
use AnyEvent::CouchDB;

my $get_all_dbs = sub {
    my $couch = couch('http://localhost:5984/');
    my $data  = $couch->all_dbs->recv;
};

my $w1; $w1 = AE::timer(1, 0.25, $get_all_dbs);
my $w2; $w2 = AE::timer(0, 0.25, $get_all_dbs);

EV::loop;