gistfile1

use AnyEvent;

my $cv = AE::cv;

my $count = 0;

my $timer;
$timer = AE::timer 0, 0.1, sub {
    $count++;
    $cv->send("hoge" . $count);
    if ($count > 10) {
        $cv->send;
        undef $timer;
    }
};

my $gen;
$gen = sub {
    my $data = $cv->recv;

    # new cv
    $cv = AE::cv;
    unless ($data) {
        warn "finish"; # last
        return;
    }
    warn $data;
    $gen->();
};

$gen->();