my $req = Apache::FakeRequest( uri='/foo/bar', is_main=>1...);

*Apache::FakeRequest::request_uri = sub{ 
   #gen the uri here 
};