$bb = APR::Brigade->new($c->pool, $c->bucket_alloc);
my $ba = $bb->bucket_alloc();
my $nb = APR::Bucket->new($ba, $data);
$bb->insert_tail($nb);
my $b = APR::Bucket::eos_create($ba);
$bb->insert_tail($b);
$r->headers_in->{'Content-Length'} = length ($data);
$f->fflush($bb);