#!/usr/bin/perl -T
######################
#ˇˇauthor:glisten
#  http://www.dsl-speed.org
######################
&get_form_data;
&emptyid unless $FORM{'sid'};
$afid=$FORM{'sid'};
&gencode;

sub emptyid{
$login_page="http://www.adultworldmedia.com";
# Replace to your affiliate program url
print "Content-Type: text/html\n\n";
   print <<"~EOT~";
<HTML>
<HEAD>
   <TITLE>Generator error</TITLE>
<META HTTP-EQUIV=Refresh CONTENT="2; URL=index.shtml">
</HEAD>
<BODY>Please input Your affiliate ID <a href=\"$login_page\">Try again.</a></BODY>
</HTML>

~EOT~
exit;
}

sub gencode{
print "Content-Type: text/html\n\n";
   print <<"~EOT~";


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
<HEAD>
<TITLE>Pornstar Sluts Gauge and Sharon in Kinky Fetish Movies</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>

<body bgcolor="#000000" text="#FFFFFF" link="#FF0000" vlink="#CC0000" alink="#FFFF00" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<table width="704" border="1" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="700" align="center" valign="top"><a href="http://tracker.zombaio.com/?$afid.7876929"><img src="../../TemplateM/t2/Headar2.jpg" alt="Horror Sex bondage video" width="699" height="273" border="0"></a></td>
  </tr>

  <tr> <td><table width="700" border="0" align="center" cellpadding="10" cellspacing="10">
        <tr>
          <td colspan="2" align="center"><h2>Gauge in the Awakening</h2>
            <strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Anal pornstar queen Gauge was tricked by   one of the gate keepers to attend a Halloween Party at the Horror Castle. The   <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0000&PA=$afid&HTML=http://xxxspacegirls.us/tour4.htm">nasty lesbian vampires</a> ruling the Horror Castle never touched their victims   during Halloween. So that was the time when the servants working for them could   taste the wild sex with the visiting porn star sluts. Check out this horrorsex   flick, where the innocent pornstar Gauge awakens after been drugged the previous   night…Check out how pervert are those vampire slaves and how nasty they exploit the   ”innocent” porn-stars. The keeper started by licking and kissing Gauge’s tight   ass, then he continued fucking her hard and ended with nice cum-shot in her face   and pussy. Stay tuned to XXXhorror.com!</font></strong></td>
        </tr>
        <tr>
          <td width="315" align="center"><a href="P1Awakening_01.wmv"><img src="movie1.jpg" alt="anal pornstar Gauge fucked in the horrorcastle" width="300" height="300"></a></td>
          <td width="315" align="center"><a href="P1Awakening_02.wmv"><img src="movie2.jpg" alt="horrorsex episode at the horror castle image" width="300" height="300"></a></td>
        </tr>
        <tr>
          <td align="center"><a href="P1Awakening_03.wmv"><img src="movie3.jpg" alt="hardcore sex and ass munching image" width="300" height="300"></a></td>
          <td align="center"><a href="P1Awakening_04.wmv"><img src="movie4.jpg" alt="blowjob porn image" width="300" height="300"></a></td>
        </tr>
        <tr>
          <td align="center"><a href="../TheComing/TheComing_0001.wmv"><img src="../TheComing/movie1.jpg" alt="hot doggy style porn movie image" width="300" height="300"></a></td>
          <td align="center"><a href="../TheComing/TheComing_0002.wmv"><img src="../TheComing/movie2.jpg" alt="gauge fucking hard the castle keeper image" width="300" height="300"></a></td>
        </tr>
        <tr>
          <td align="center"><a href="../TheComing/TheComing_0003.wmv"><img src="../TheComing/movie3.jpg" alt="close up image of gauge's wet pussy and ass" width="300" height="300"></a></td>
          <td align="center"><a href="../TheComing/TheComing_0004.wmv"><img src="../TheComing/movie4.jpg" alt="facial cumshot image of Gauge" width="300" height="300"></a></td>
        </tr>
        <tr>
          <td colspan="2" align="center"><h2 align="center">Sharon Wild as the Horror Slut in the Boning</h2>
           <strong> <font size="2" face="Verdana, Arial, Helvetica, sans-serif">Hot   kinky chick Sharon Wild was trapped in the Horror Castle. Blind minded by the   evil spirits she suddenly turned into a horny BDSM fetish slut. The experienced   castle keeper tricked her into one of the rooms and started fucking her in all   possible ways. Check out this hot anal flick with cream-pie cum-shot at the   end... </font></strong><BR>
          
            </td>
        </tr>
        <tr>
          <td align="center"><a href="../../Sharon_Wild/boning/TheBoning_01.wmv"><img src="../../Sharon_Wild/boning/movie1.jpg" alt="Sharon Wild lubricate her ass and pussy before anal shoot image" width="300" height="300"></a></td>
          <td align="center"><a href="../../Sharon_Wild/boning/TheBoning_02.wmv"><img src="../../Sharon_Wild/boning/movie2.jpg" alt="Sharon wild sticks a huge glass dildo in her tight ass image" width="300" height="300"></a></td>
        </tr>

      </table>

    </td>
  </tr>
  <tr>
    <td align="center" valign="top"><img src="../../TemplateM/t2/Footer2.jpg" alt="Horror Sex BDSM  movies" width="699" height="300" border="0"></td>
  </tr>
</table>
<br>
<div align="center" class="HorrorLink"><strong><a href="http://tracker.zombaio.com/?$afid.7876929"><font size="6" face="Verdana, Arial, Helvetica, sans-serif">CLICK HERE TO BROWSE XXX HORROR</font></a></strong></div>
<br>
<div align="center">

  <p><font face="Verdana, Arial, Helvetica, sans-serif"><strong><font size="2">xxxHorror&#8482;<br>
    <font face="Verdana, Arial, Helvetica, sans-serif"><strong>18 U.S.C. 2257
    Record-Keeping Requirements Compliance Statement</strong></font> at:<br>
    http://xxxspacegirls.us/18-statement/18-statement.html </font></strong></font></p>
</div>
</body>
</html>


~EOT~
exit;
}

# Get form data
sub get_form_data {
	read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
	if ($ENV{'QUERY_STRING'}) {
		$buffer = "$buffer\&$ENV{'QUERY_STRING'}"
	}
	@pairs = split(/&/,$buffer);
	foreach $pair (@pairs) {
		($name,$value) = split(/=/,$pair);
		$value =~ tr/+/ /;
		$value =~ s/\t//g;
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
		$FORM{$name} = $value
	}
}

