Select Code to Download

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

   # somewhere in your code...
   my $r = My::Apache::Request->instance;
...
      my $class = shift;
      return $class->new(r => Apache::Request->instance);
   }