sub cleanup {
  my $arg = shift;
  for (1 .. $arg->{cnt} ) {
    print STDERR "$_ = ", $arg->{name}, "\n";
    sleep(1);
  }
}

sub T_cleanup {
  my $self= shift;

#  my $r = $self->{__apache_req__};
#  $r->pool->cleanup_register (\&cleanup, {name=> 'test', cnt=>10});
   my $p = APR::Pool->new(); 
  $p->cleanup_register (\&cleanup, {name=> 'test', cnt=>10});
  $self->redirect(path=>'/index.html');
}