if ($cgi->param('Submit') eq "Go") {&do_results($cgi); }