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

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Wonderful Web Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.