use Apache2::Const -compile => qw(OK DECLINED REDIRECT);

my $r = shift;
my $url = 'http://www.google.com';
$r->headers_out->set(Location => $url);
$r->status(Apache2::Const::REDIRECT);