use Apache::RequestRec;
sub handler {
   my $r=shift;
   my $req = Apache::RequestRec->new($r);
   ...
}