Professor Lester's Maison

#!c:\perl\bin\perl.exe
#Creates the file to run sample2get.cgi and sample2post.cgi from
print "Content-type:text/html\n\n";
print "<HTML>

<HEAD><TITLE>Sample2Html.cgi</TITLE></HEAD>";
print "<BODY><script>
  (function(i,s,o,g,r,a,m){i['GoogleAnalyticsObject']=r;i[r]=i[r]||function(){
  (i[r].q=i[r].q||[]).push(arguments)},i[r].l=1*new Date();a=s.createElement(o),
  m=s.getElementsByTagName(o)[0];a.async=1;a.src=g;m.parentNode.insertBefore(a,m)
  })(window,document,'script','//www.google-analytics.com/analytics.js','ga');

ga('create', 'UA-47423994-1', 'fortunecity.ws');
  ga('send', 'pageview');

</script>
<center>
<br>
	
	<div>	
<script language="javascript" type="text/javascript" src="http://ad.broadcaststation.net/ads/show_ad.php?width=728&height=90"></script>
	</div>
</center>
<H1>Sample2</H1><FORM METHOD=GET ACTION=http://www.fortunecity.com/"sample2get.cgi/">";
print "<HR><H2><CENTER>This form uses the GET method</CENTER></H2>";
&print_stuff;
print "<FORM METHOD=POST ACTION=http://www.fortunecity.com/"sample2post.cgi/">";
print "<H2><CENTER>This form uses the POST method</CENTER></H2>";
&print_stuff;

sub print_stuff {
print "Name: <INPUT TYPE=\"text\" NAME=\"Name\" SIZE 40><BR>";
print "Rank: <SELECT NAME=\"Rank\"><OPTION VALUE=\"Unenlisted\">Unenlisted";
print "<OPTION VALUE=\"Private\">Private<OPTION NAME=\"Colonel\">Colonel";
print "</SELECT><BR><INPUT TYPE=\"submit\" VALUE=\"Submit\">";
print "<INPUT TYPE=\"reset\" VALUE=\"Reset\"><BR><HR></FORM>";
return 1;
}