gistfile1.PL

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

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

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(undef);
    },
);

my $hdr = $q->get();
print Dumper($hdr);
while (my $chunk = $q->get()) {
    print $chunk;
}