sub handler {
      my $r = shift;
  
         $r->headers_out->set(Location => "http://www.foo.bar");
  
}