<% my $r = shift; %> Current URI: <%= $r->uri %>