Modperl2 + PerlAccessHandler + Redirect

[yperl]

Hi All!

I would like to do a redirect from a PerlAccessHandler.
With mod_perl1 to below code works.
But how to achieve the same thing with mod_perl2?

sub handler {
my $r =shift;

# tell the client what's coming
$r->content_type('text/html');
   # set the location
$r->header_out( Location => 'http://www.google.fr' );

return Apache2::Const::REDIRECT;
}

Thanks in advance
/younes