sub handler {
     my $r    = shift;
     my $my_r = My::Apache::Request->new($r);
     # do interesting things with $my_r
  }