package Cookbook::RedirectTo8080; 

use Apache::Constants qw(REDIRECT); 
use Apache::URI;

use strict; 

sub handler {

  my $r = shift; 

  my $uri = Apache::URI->parse($r); 

  $uri->port(8080);

  $r->headers_out->set(Location => $uri->unparse); 
  return REDIRECT; 
} 
1;