While that might work, I don't think it's "right." See the recipes in here: mod_perl: Cooking Recipes. This might be right, untested.

$r->headers_out->set(Location => $location);
$r->status(Apache2::Const::REDIRECT);
return Apache2::Const::REDIRECT;
[download]