my $apr;

sub handler {
    my $r = shift;
    $apr = Apache::Request->new($r);
    other_sub();
}

sub other_sub {
    my $foo = $apr->some_method();
}