my $uri = $r->uri;

##</code><code>##

    <Location /bar>
        PerlHandler MyHandler
    </Location>