sub handler {
   my $r = shift;

   my $filename = $r->filename();
   my $uri      = $r->uri();

   ....
}