sub build_redirect
{       
  my ($self, $form, $script) = @_;
    
  $form ||= {};                                                                 
  my $q = $self->query;
  my $uri = URI->new( $script || $q->script_name );                             
  $uri->query_form(%$form);                                                     
        
  return $uri->as_string;
}       
        
sub redirect
{       
  my $self = shift;                                                             
    
  $self->header_add( -uri => $self->build_redirect( @_ ) );                     
  $self->header_type('redirect');                                               
}