#!/usr/local/bin/perl
use CGI;
use CGI::Carp qw/fatalsToBrowser/;
require "parseform.lib";
&parseform;
$club=$formdata{'club'};
%title=("Todd", "Toddrick", "Bill", "Phil Phayly", "Dave", "Dr. Smooth", "Jones", "Captain Cuze",
"Brendan", "Bluemouth", "Mike", "Ult", "Levi", "Thank You Very Little", "Celo",
"C-Lo", "Tim", "Jorge", "Shawn", "Big Shawn", "Steve", "Dood", "Greg", "Dumptruck");
if ($club eq "") {&error;}
else {&confirm;}
sub confirm {
print "Content-type: text/html\n\n";
print <<"HTML code";
$title{$club}
You are most like $club!
back to form
HTML code
}
sub error {
print "Content-type: text/html\n\n";
print <<"HTML code";
You didn't select anything!
Go back and select something!
HTML code
}