gistfile1

use common::sense;
use AnyEvent::HTTP;
use Coro;
use Coro::Channel;
use Data::Dumper;

my $q = Coro::Channel->new();

async {
    http_get('http://www.chaosdorf.de',
        on_header => sub {
            my($hdr) = @_;
            $q->put($hdr);
            return 1;
        },
        on_body => sub {
            my($partial) = @_;
            $q->put($partial);
            return 1
        },
        sub {
            $q->put('done');
        },
    );
};

my $hdr = $q->get();
print Dumper($hdr);