3 ms·
Ha ha now it prints the CGI source #!/usr/bin/perl use CGI; $section = "toys"; $author = "steveb"; $title = "Your Mr. T Name"; $s_title = "m
by tln 2y ago
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;