watch CouchDB _changes?feed=continuous

diff --git a/couchdb/couchdb-changes.pl b/couchdb/couchdb-changes.pl
new file mode 100755 (executable)
index 0000000..73fea3a
--- /dev/null
+++ b/couchdb/couchdb-changes.pl
@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+
+# http://wiki.apache.org/couchdb/HTTP_database_API#Changes
+
+use warnings;
+use strict;
+
+use LWP::UserAgent;
+use Data::Dump qw(dump);
+
+my $ua = LWP::UserAgent->new;
+$ua->timeout( 60 * 60 );
+$ua->env_proxy;
+
+my $response = $ua->get(
+       'http://localhost:5984/monitor/_changes?feed=continuous'
+       , ':content_cb' => sub {
+               my ( $data, $response, $protocol ) = @_;
+               warn dump( $data );
+       }
+);
+
+if ($response->is_success) {
+       print $response->decoded_content;  # or whatever
+}
+else {
+       die $response->status_line;
+}
+