#!/opt/bin/perl

use AnyEvent;
use AnyEvent::MP;

configure nodeid => "eg_sender/%u", seeds => ["*:4041"];

my $guard = db_mon eg_receivers => sub {
   my ($family, $keys) = @_;
   return unless %$family;

   # now there are some receivers, send them a message
   snd $_ => test => time, keys %$family
      for keys %$family;
};

AnyEvent->condvar->recv;