why not use mod_perl's redirection methods? put this in a mod_perl module and load this handler

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

more examples here mod_perl code snippets