Setting 'Location' header

[Stathy Touloumis]

This code does not seem to work whether in a handler or when using a Mason
component.  I have tried several variations with different versions of
mod_perl to no avail.  Can anyone shed some light?

my $head = $r->headers_out;
$head->set( Location=> '/index.html' );
$head->set( Target=> '_top' );
$r->send_http_header;

Thanks!