# test env vars

use Apache::URI ();

my $r = shift;
my $path = $r->args || '';
$server = $r->construct_server;

print "Location: http://$server$path\n\n";
warn "Location: http://$server$path\n\n";

__END__
