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

$r->headers_out->set('Location' => $url);
$r->status(Apache2::Const::REDIRECT);