mod_perl memory...

Hello,

Following the thread 
http://www.gossamer-threads.com/lists/modperl/modperl/101225, I came up 
with the following sub to display the output but the memory usage 
continues to build up without limit when web pages are rendered. Any 
suggestion/pointer would be greatly appreciated.

Here is the sub that outputs the page ($data is the entire web page in 
one go, using HTML::Template):

sub sendOutput {
   my $r = shift;
   my $data = shift;

   $r->content_type("text/html; charset=UTF-8");

   my $ba=$r->connection->bucket_alloc;
   my $bb=APR::Brigade->new($r->pool, $ba);

   $bb->insert_tail(APR::Bucket->new($ba, $data));
   $bb->insert_tail(APR::Bucket::flush_create $ba);
   $r->output_filters->pass_brigade($bb);
   $bb->cleanup;

   $bb->insert_tail(APR::Bucket::eos_create $ba);
   $r->output_filters->pass_brigade($bb);

   return;
}

And, here is the 'free' snapshot every ten seconds (trimmed):
       total       used       free
Mem: 262144      34668     227476
Mem: 262144      48432     213712
Mem: 262144      53392     208752
Mem: 262144      64360     197784
Mem: 262144      60760     201384
Mem: 262144      38980     223164
Mem: 262144      56440     205704
Mem: 262144      57436     204708
Mem: 262144      77364     184780
Mem: 262144     107568     154576
Mem: 262144     123388     138756
Mem: 262144     138628     123516
Mem: 262144     149004     113140

Thanks,
Nishi