#!./perl -w
# contributed by jsalmon@gw.thesalmons.org
use Event qw(loop);
require Event::timer;
$w = Event->timer(interval => 1, parked=>1);
$w->cb(sub {
my $next = rand(10);
print(scalar localtime(Event::time()), ": waiting ",
$next, " sec\n");
$w->interval($next);
});
$w->start;
loop();