I have a redirect method in my CGI::Application base class that looks like this:

sub redirect {
    my ($self, $location) = @_; 

    $self->header_type('redirect');
    $self->header_add(-location => $location);

    return;
}
[download]