#!/usr/local/bin/perl -w
use strict;
use CGI qw(:standard);

my @pnames;

if (@pnames = param()) {
   eval_answers();
   print_redirect();
} else {
   print header;
   print_my_top();
   print_name_table();
   print_my_bottom();
   print end_html;
}

exit();

# add sub routines here for what you want to do...

sub print_redirect {
   print "Status: 301 MOVED PERMANENTLY\n";
   print 'Location: http://www.some_isp.com/~mylogin/my_most_excellent_cgi.cgi';
   print "\n";
   print "\n";
}