use Apache;

my $r = shift;
my $uri = $ENV{REQUEST_URI};
my $path = $r->lookup_uri($uri)->filename;