#!/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>Kayme Kai and Lee Bang in Interracial Extravaganza</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>Kayme Kai and Lee Bang in Interracial Extravaganza</h1>
              	In this exotic interracial video we find big dick black guy Lee Bang   satisfying the wild sexual desires of Asian chick Kayme Kai. Kayme was   setup by her dear friend Johnny to meet Lee Bang as she always was   complaining regarding her bored sexual life with her boyfriend. Kayme   needed a long and mostly thick cock to satisfy her hungry for sex pussy.   The hot Asian was tired of the gentle and slow sex, she needed rough   hardcore interracial...<strong>read the whole story on FuckMeBlack.com!</strong></h2></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_5851.jpg"><IMG src="thumbnails/IMG_5851.jpg" height="270" width="180" alt="IMG_5851"></A></TD>
            <TD align="center"><A href="images/IMG_5878.jpg"><IMG src="thumbnails/IMG_5878.jpg" height="270" width="180" alt="IMG_5878"></A></TD>
            <TD align="center"><A href="images/IMG_5899.jpg"><IMG src="thumbnails/IMG_5899.jpg" height="270" width="180" alt="IMG_5899"></A></TD>
            <TD align="center"><A href="images/IMG_5915.jpg"><IMG src="thumbnails/IMG_5915.jpg" height="270" width="180" alt="IMG_5915"></A></TD>
            <TD align="center"><A href="images/IMG_5939.jpg"><IMG src="thumbnails/IMG_5939.jpg" height="270" width="180" alt="IMG_5939"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_5945.jpg"><IMG src="thumbnails/IMG_5945.jpg" height="270" width="180" alt="IMG_5945"></A></TD>
            <TD align="center"><A href="images/IMG_5947.jpg"><IMG src="thumbnails/IMG_5947.jpg" height="270" width="180" alt="IMG_5947"></A></TD>
            <TD align="center"><A href="images/IMG_5980.jpg"><IMG src="thumbnails/IMG_5980.jpg" height="270" width="180" alt="IMG_5980"></A></TD>
            <TD align="center"><A href="images/IMG_6006.jpg"><IMG src="thumbnails/IMG_6006.jpg" height="270" width="180" alt="IMG_6006"></A></TD>
            <TD align="center"><A href="images/IMG_6012.jpg"><IMG src="thumbnails/IMG_6012.jpg" height="270" width="180" alt="IMG_6012"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_6013.jpg"><IMG src="thumbnails/IMG_6013.jpg" height="270" width="180" alt="IMG_6013"></A></TD>
            <TD align="center"><A href="images/IMG_6018.jpg"><IMG src="thumbnails/IMG_6018.jpg" height="270" width="180" alt="IMG_6018"></A></TD>
            <TD align="center"><A href="images/IMG_6044.jpg"><IMG src="thumbnails/IMG_6044.jpg" height="270" width="180" alt="IMG_6044"></A></TD>
            <TD align="center"><A href="images/IMG_6046.jpg"><IMG src="thumbnails/IMG_6046.jpg" height="270" width="180" alt="IMG_6046"></A></TD>
            <TD align="center"><A href="images/IMG_6061.jpg"><IMG src="thumbnails/IMG_6061.jpg" height="270" width="180" alt="IMG_6061"></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:<br>
              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
	}
}

