if (param()) { my $pass_bob = param("pass_bob"); # verify correct password if ($bob_pass eq "password") { use CGI; print redirect("http://www.gailborden.info/services/bob/bobqa.htm"); } else { # print error page # } # If no password, get one from user } else { my $query = new CGI; print $query->header( "text/html" ); print <B.O.B. Question Submission

B.O.B. Q and A w/Suggestions Submission Form

Type Password

END_PASS }