#!/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.html">

</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" "http://www.w3.org/TR/html4/loose.dtd">

<html>

<HEAD>

<TITLE>BBW Topaz Ladai in hot Interracial Sex</TITLE>

<meta http-equiv="Content-Type" content="text/html; charset=utf-8">

<style type="text/css">

<!--

body {

	margin: 0px;

	padding: 0px;

	background-color: #000000;

}



.tb-border {

	border-top: 4px none #FFFFFF;

	border-right: 4px dashed #FFFFFF;

	border-bottom: 4px dashed #FFFFFF;

	border-left: 4px dashed #FFFFFF;

}

body,td,th {

	font-family: Verdana, Arial, Helvetica, sans-serif;

	font-size: 16px;

	font-weight: bold;

}

h1 {

	color: #000000;

}

a:link {

	color: #FF0000;

}

a:visited {

	color: #CC0000;

}

a:hover {

	color: #FF3300;

}

a:active {

	color: #CC0000;

}

.style1 {

	font-family: Verdana, Arial, Helvetica, sans-serif;

	font-size: 26px;

	font-weight: bold;

}



-->

</style>

</HEAD>

<body>

<table width="623" align="center" class="tb-border">

  <tr> 

    <th width="609" align="center" valign="top" scope="col"><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=940106-0019&PA=$afid&HTML=http://www.cjwrightxxx.com/index.php"><img src="../cj_wrigh.jpg" alt="CJ Wright's BBW hardcore interracial sex" width="608" height="142" border="0"></a></th>

  </tr>

  <tr> 

    <th align="center" valign="top" bgcolor="#FFFFCC" scope="col"><TABLE width="600" border=0  align="center" cellpadding=2 cellspacing=2>

      <TR>

        <TD width="580" colspan="3" align="center"><h1>BBW Topaz Ladai</h1>

          I actually expected to get shut down when I emailed Topaz to do a scene with me. I was twice as <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=940106-0019&PA=$afid&HTML=http://adultfantasypark.com/index.php">shocked</a> when she actually emailed me back. Considering the fact that I've been  a huge fan of hers for quite some time...I really looked at this scene  as an honor. I was happy to have her for the weekend and this video  will prove it. She and I were able to complete some very solid  material, so I'm looking forward to the feedback from the fans!.</TD>

        </TR>

      <TR>

        <TD align="center"><A href="images/TopazLadai_001.jpg"><IMG src="thumbnails/TopazLadai_001.jpg" height="270" width="179" alt="TopazLadai_001"></A></TD>

        <TD align="center"><A href="images/TopazLadai_027.jpg"><IMG src="thumbnails/TopazLadai_027.jpg" height="270" width="179" alt="TopazLadai_027"></A></TD>

        <TD align="center"><A href="images/TopazLadai_032.jpg"><IMG src="thumbnails/TopazLadai_032.jpg" height="270" width="179" alt="TopazLadai_032"></A></TD>

      </TR>

      <TR>

        <TD align="center"><A href="images/TopazLadai_039.jpg"><IMG src="thumbnails/TopazLadai_039.jpg" height="270" width="179" alt="TopazLadai_039"></A></TD>

        <TD align="center"><A href="images/TopazLadai_044.jpg"><IMG src="thumbnails/TopazLadai_044.jpg" height="270" width="179" alt="TopazLadai_044"></A></TD>

        <TD align="center"><A href="images/TopazLadai_071.jpg"><IMG src="thumbnails/TopazLadai_071.jpg" height="270" width="179" alt="TopazLadai_071"></A></TD>

      </TR>

      <TR>

        <TD align="center"><A href="images/TopazLadai_107.jpg"><IMG src="thumbnails/TopazLadai_107.jpg" height="270" width="179" alt="TopazLadai_107"></A></TD>

        <TD align="center"><A href="images/TopazLadai_120.jpg"><IMG src="thumbnails/TopazLadai_120.jpg" height="270" width="179" alt="TopazLadai_120"></A></TD>

        <TD align="center"><A href="images/TopazLadai_158.jpg"><IMG src="thumbnails/TopazLadai_158.jpg" height="270" width="179" alt="TopazLadai_158"></A></TD>

      </TR>

      <TR>

        <TD align="center"><A href="images/TopazLadai_186.jpg"><IMG src="thumbnails/TopazLadai_186.jpg" height="270" width="179" alt="TopazLadai_186"></A></TD>

        <TD align="center"><A href="images/TopazLadai_217.jpg"><IMG src="thumbnails/TopazLadai_217.jpg" height="270" width="179" alt="TopazLadai_217"></A></TD>

        <TD align="center"><A href="images/TopazLadai_229.jpg"><IMG src="thumbnails/TopazLadai_229.jpg" height="270" width="179" alt="TopazLadai_229"></A></TD>

      </TR>

      <TR>

        <TD align="center"><A href="images/TopazLadai_297.jpg"><IMG src="thumbnails/TopazLadai_297.jpg" height="270" width="179" alt="TopazLadai_297"></A></TD>

        <TD align="center"><A href="images/TopazLadai_316.jpg"><IMG src="thumbnails/TopazLadai_316.jpg" height="270" width="179" alt="TopazLadai_316"></A></TD>

        <TD align="center"><A href="images/TopazLadai_362.jpg"><IMG src="thumbnails/TopazLadai_362.jpg" height="270" width="179" alt="TopazLadai_362"></A></TD>

      </TR>

      



      

    </TABLE></th>

  </tr>

</table>

<p align="center"><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=940106-0019&PA=$afid&HTML=http://www.cjwrightxxx.com/index.php" class="style1">CLICK HERE TO BROWSE CJ WRIGHT XXX</a></p>

<div align="center">

<p><font face="Verdana, Arial, Helvetica, sans-serif"><strong><font color="#FFFFFF" size="2">Copyright: CJ WRIGHT XXX . COM<br>

18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement:<br>

http://cjwrightxxx.com/2257.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

	}

}



