Professor Lester's Maison

#!c:\perl\bin\perl.exe
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
        ($key,$value) = split(/=/,$pair);
        $key =~ tr/+/ /;
        $key =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
        $value =~ tr/+/ /;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
        $value =~ s///g;
        $formdata{$key} = $value;
}
print "Content-type:text/html\n\n";
print "<HTML>

<HEAD><TITLE>Sample2.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>POST Method</H1><TABLE><TR><TH>Keys:<TH>Values:";
foreach $key (keys %formdata) {
        print "<TR><TD>$key<TD>$formdata{$key}";
}
print 
</BODY>

<center>

</center>
</HTML>";