#!/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~";


<html>
<head>
<title>Slim Asian Nyomi Marcella Streched by Big Black Dick</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../../fmb.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<table width="1020" height="809" border="0" align="center" cellpadding="0" cellspacing="0" id="Table_01">
<tr>
		<td>
			<a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=940106-0024&PA=$afid&HTML=http://www.fuckmeblack.com/index.php"><img src="../template/View_Clip_01.jpg" alt="free interracial movies" width="1020" height="243" border="0"></a></td>
  </tr>
	<tr>
		<td class="FLVbg" height="466"><table width="970" border="0" align="center" cellpadding="2" cellspacing="2">
          <TR>
            <TD colspan="5" align="center"><h1>Slim Asian Nyomi Marcella Streched by Big Dick</h1>
              	Hey people, this is another tight Asian pussy stretch interracial sex episode. I really enjoyed the tight pussy of Tia Thomas and decided to keep going in the same direction. This time even tighter babe Nyomi Marcela tasted the Anaconda. The tiny girl started teasing me at first, but I did not need no teasing, once I saw her slim body and perky boobs, the Anaconda started rising. The most I liked the doggy stile, looking and her asshole, knowing that there is no way for the Anaconda to get in there. At the end I cum on...<strong>read the whole story on FuckMeBlack.com!</strong></h2></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_3199.jpg"><IMG src="thumbnails/IMG_3199.jpg" height="270" width="180" alt="IMG_3199"></A></TD>
            <TD align="center"><A href="images/IMG_3207.jpg"><IMG src="thumbnails/IMG_3207.jpg" height="270" width="180" alt="IMG_3207"></A></TD>
            <TD align="center"><A href="images/IMG_3215.jpg"><IMG src="thumbnails/IMG_3215.jpg" height="270" width="180" alt="IMG_3215"></A></TD>
            <TD align="center"><A href="images/IMG_3239.jpg"><IMG src="thumbnails/IMG_3239.jpg" height="270" width="180" alt="IMG_3239"></A></TD>
            <TD align="center"><A href="images/IMG_3270.jpg"><IMG src="thumbnails/IMG_3270.jpg" height="270" width="180" alt="IMG_3270"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_3280.jpg"><IMG src="thumbnails/IMG_3280.jpg" height="270" width="180" alt="IMG_3280"></A></TD>
            <TD align="center"><A href="images/IMG_3295.jpg"><IMG src="thumbnails/IMG_3295.jpg" height="270" width="180" alt="IMG_3295"></A></TD>
            <TD align="center"><A href="images/IMG_3303.jpg"><IMG src="thumbnails/IMG_3303.jpg" height="270" width="180" alt="IMG_3303"></A></TD>
            <TD align="center"><A href="images/IMG_3306.jpg"><IMG src="thumbnails/IMG_3306.jpg" height="270" width="180" alt="IMG_3306"></A></TD>
            <TD align="center"><A href="images/IMG_3310.jpg"><IMG src="thumbnails/IMG_3310.jpg" height="270" width="180" alt="IMG_3310"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_3316.jpg"><IMG src="thumbnails/IMG_3316.jpg" height="270" width="180" alt="IMG_3316"></A></TD>
            <TD align="center"><A href="images/IMG_3323.jpg"><IMG src="thumbnails/IMG_3323.jpg" height="270" width="180" alt="IMG_3323"></A></TD>
            <TD align="center"><A href="images/IMG_3363.jpg"><IMG src="thumbnails/IMG_3363.jpg" height="270" width="180" alt="IMG_3363"></A></TD>
            <TD align="center"><A href="images/IMG_3375.jpg"><IMG src="thumbnails/IMG_3375.jpg" height="270" width="180" alt="IMG_3375"></A></TD>
            <TD align="center"><A href="images/IMG_3396.jpg"><IMG src="thumbnails/IMG_3396.jpg" height="270" width="180" alt="IMG_3396"></A></TD>
          </TR>
          <TR>
            <TD align="center">&nbsp;</TD>
            <TD align="center">&nbsp;</TD>
            <TD align="center">&nbsp;</TD>
            <TD align="center">&nbsp;</TD>
            <TD align="center">&nbsp;</TD>
          </TR>
          <TR>
            <TD colspan="5" align="center"><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=940106-0024&PA=$afid&HTML=http://www.fuckmeblack.com/index.php" class="EnterText"><span class="EnterText">CLICK HERE TO ENTER FUCK ME BLACK</span></a></TD>
          </TR>
          <TR>
            <TD align="center">&nbsp;</TD>
            <TD align="center">&nbsp;</TD>
            <TD align="center">&nbsp;</TD>
            <TD align="center">&nbsp;</TD>
            <TD align="center">&nbsp;</TD>
          </TR>
          <TR>
            <TD align="center">&nbsp;</TD>
            <TD align="center">&nbsp;</TD>
            <TD align="center">&nbsp;</TD>
            <TD align="center">&nbsp;</TD>
            <TD align="center">&nbsp;</TD>
          </TR>
          <TR>
            <TD colspan="5" align="center">Copyright: FUCK ME BLACK . COM<br>
              2257 info at: http://fuckmeblack.com/2257.html</TD>
          </TR>
          
          
      </table>		</td>
	</tr>
	<tr>
		<td>
			<img src="../template/View_Clip_03.jpg" width="1020" height="100" alt=""></td>
  </tr>
</table>

</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
	}
}

