anyevent_run.pl

use strict;
use warnings;
use YAML;

use AnyEvent;
use AnyEvent::Run;

my $cv = AnyEvent->condvar;

my $w = AnyEvent::Run->new(
    cmd => sub {
        print "foo!\n";
        sleep 1;
        print "bar!\n";
        sleep 2;
        print "baz!\n";
    },
);

$w->on_eof(
    sub {
        warn 'on eof!';
        $cv->send;
    },
);

$w->on_read(sub {
    shift->push_read( line => sub {
        warn 'read: ', $_[1];
    });
});

$cv->recv;