#!/usr/bin/env perl 
use strict;
use warnings;

use AnyEvent;

my $cv     = AnyEvent->condvar;
my @timers = (
    AnyEvent->timer (
        after    => 2,
        interval => 5,
        cb       => sub {
            warn "Timer 1 at " . AnyEvent->now . "\n";
        }
    ),      
    AnyEvent->timer (
        after    => 2,
        interval => 7,
        cb       => sub {
            warn "Timer 2 at " . AnyEvent->now . "\n";
        }
    ),  
    AnyEvent->timer (
        after => 20,
        cb    => sub {
            warn "Timer 3 at " . AnyEvent->now . "\n";
            $cv->send;
        }
    ),  
);          
$cv->recv;