use 5.010;
use strict;
use warnings;

use AnyEvent;

my $cv = AE::cv;
my $t1 = AE::timer 0.2, 0.2, sub { say "t1" };
my $t2 = AE::timer 1, 0, sub { say "t2"; $cv->send; };
$cv->recv;