You enter your First Name, Last Name, Gender, Date of Birth, Pet's Name and Mother's Maiden Name and press the button to find out what your Mr T Name is...
... Mr T says your name is FOOL
#!/usr/bin/perl use CGI; $section = "toys"; $author = "steveb"; $title = "Your Mr. T Name"; $s_title = "mrtname"; $cat1 = "moviestv"; print "Content-type: text/html\n\n"; require "makehead.pl"; print &MakeHead; print <<EOFILE; <P>Your Mr. T name is:</P> <CENTER><P CLASS="head1">Fool</P></CENTER> EOFILE print &MakeFoot;
You enter your First Name, Last Name, Gender, Date of Birth, Pet's Name and Mother's Maiden Name and press the button to find out what your Mr T Name is...
... Mr T says your name is FOOL