Ha ha now it prints the CGI source #!/usr/bin/perl use CGI; $section = "toys"; $...

Ha ha now it prints the CGI source

   #!/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;