my $r = Apache2::RequestUtil->request;

##</code><code>##

        use Apache2::RequestRec ();
  
        sub handler {
            my $r = shift;
            ...
        }