sub handler{
 my $apr = shift;
 my $r = $apr->request;

 # Do something.
 return OK;
}