sub cgiapp_get_query {
    my $self = shift;

    require CGI::Simple;
    my $q = CGI::Simple->new();
     
    return $q;
 }

##</code><code>##

   $self->query()->nph(1);

##</code><code>##

   $self->header_type('redirect');
   $self->header_props( -url => $newurl );
   return;

##</code><code>##

HTTP/1.0 200 OK Server: Microsoft-IIS/5.0 Date: Fri, 19 Aug 2005 02:42:29 GMT Content-Type: text/html; charset=ISO-8859-1