#!/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 Tia Thomas Fucks huge 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 Tia Thomas fucks huge black dick</h1>
              	Hey guys, this is another interracial hardcore scene by member request. A   lot of people wanted me to drill some tight Asian pussy, so I setup a   shoot with Tia Thomas. In the beginning Tia needed to smoke and relax   her vagina for the challenge ahead. She was smoking and stroking my   anaconda preparing for the nice stretch. Tia was ready, she put the dick   in her mouth, but she was able to take only the tip of it. The hardcore   was...<strong>read the whole story on FuckMeBlack.com!</strong></h2></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_7537.jpg"><IMG src="thumbnails/IMG_7537.jpg" height="270" width="180" alt="IMG_7537"></A></TD>
            <TD align="center"><A href="images/IMG_7553.jpg"><IMG src="thumbnails/IMG_7553.jpg" height="270" width="180" alt="IMG_7553"></A></TD>
            <TD align="center"><A href="images/IMG_7566.jpg"><IMG src="thumbnails/IMG_7566.jpg" height="270" width="180" alt="IMG_7566"></A></TD>
            <TD align="center"><A href="images/IMG_7577.jpg"><IMG src="thumbnails/IMG_7577.jpg" height="270" width="180" alt="IMG_7577"></A></TD>
            <TD align="center"><A href="images/IMG_7582.jpg"><IMG src="thumbnails/IMG_7582.jpg" height="270" width="180" alt="IMG_7582"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_7601.jpg"><IMG src="thumbnails/IMG_7601.jpg" height="270" width="180" alt="IMG_7601"></A></TD>
            <TD align="center"><A href="images/IMG_7618.jpg"><IMG src="thumbnails/IMG_7618.jpg" height="270" width="180" alt="IMG_7618"></A></TD>
            <TD align="center"><A href="images/IMG_7625.jpg"><IMG src="thumbnails/IMG_7625.jpg" height="270" width="180" alt="IMG_7625"></A></TD>
            <TD align="center"><A href="images/IMG_7628.jpg"><IMG src="thumbnails/IMG_7628.jpg" height="270" width="180" alt="IMG_7628"></A></TD>
            <TD align="center"><A href="images/IMG_7633.jpg"><IMG src="thumbnails/IMG_7633.jpg" height="270" width="180" alt="IMG_7633"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_7645.jpg"><IMG src="thumbnails/IMG_7645.jpg" height="270" width="180" alt="IMG_7645"></A></TD>
            <TD align="center"><A href="images/IMG_7654.jpg"><IMG src="thumbnails/IMG_7654.jpg" height="270" width="180" alt="IMG_7654"></A></TD>
            <TD align="center"><A href="images/IMG_7658.jpg"><IMG src="thumbnails/IMG_7658.jpg" height="270" width="180" alt="IMG_7658"></A></TD>
            <TD align="center"><A href="images/IMG_7665.jpg"><IMG src="thumbnails/IMG_7665.jpg" height="270" width="180" alt="IMG_7665"></A></TD>
            <TD align="center"><A href="images/IMG_7669.jpg"><IMG src="thumbnails/IMG_7669.jpg" height="270" width="180" alt="IMG_7669"></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
	}
}

