#!/usr/local/bin/perl
use MyAuth; ## has strict, warnings, etc.
my $webapp = MyAuth->new(
      PARAMS => { 'Next_CGI' => "some_url_without_query_string" }
);
$webapp->run();

##</code><code>##

sub teardown()
   my $self = shift;
   my $output = '';
   ## probably best to store the following in a file
   my %Allowed_Scripts = (
         'https://site/pathto/ca.script1.cgi' => 1,
         'https://site/pathto/ca.script2.cgi' => 1,
   );

   ## usual teardown stuff
   
   my $url = $self->param('Next_CGI');
   if ( exists($Allowed_Scripts{$url}) ) {
      if (authorized) {
         my $query_string = "?whatever";
         $self->header_type('redirect');
         $self->header_props( -url => "$url$query_string" );
      } else {
         ## use template for unauthorized user message
      }
   } else {
      ## use template for unauthorized script message
   }
   return $output;
}