#!/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>Skinny exotic babe Jayla Starr drilled deep by huge black cock</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"><h3>Skinny exotic babe Jayla Starr drilled deep by huge black cock</h3>
             	Jayla is a hot little light skin freak with a touch of Asian...I like em exotic   yall, just makes it that more sexy..The wild student needs a lesson in sexual   behavior. She's been skipping class and missing her assignments. Her professor   finds her and offers to tutor her after class. He poses a challenge to her and   if she loses she has to study,but if she wins she gets what she wants. Jayla is   a size queen who feigns for <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=940106-0024&PA=$afid&HTML=http://www.cjwrightxxx.com/index.php">big dicks</a> and has her eyes on the professor...Jayla   makes her move by......<strong>read the whole story on FuckMeBlack.com!</strong></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_4096.jpg"><IMG src="thumbnails/IMG_4096.jpg" height="275" width="183" alt="IMG_4096"></A></TD>
            <TD align="center"><A href="images/IMG_4100.jpg"><IMG src="thumbnails/IMG_4100.jpg" height="275" width="183" alt="IMG_4100"></A></TD>
            <TD align="center"><A href="images/IMG_4126.jpg"><IMG src="thumbnails/IMG_4126.jpg" height="275" width="183" alt="IMG_4126"></A></TD>
            <TD align="center"><A href="images/IMG_4144.jpg"><IMG src="thumbnails/IMG_4144.jpg" height="275" width="183" alt="IMG_4144"></A></TD>
            <TD align="center"><A href="images/IMG_4160.jpg"><IMG src="thumbnails/IMG_4160.jpg" height="275" width="183" alt="IMG_4160"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_4166.jpg"><IMG src="thumbnails/IMG_4166.jpg" height="275" width="183" alt="IMG_4166"></A></TD>
            <TD align="center"><A href="images/IMG_4172.jpg"><IMG src="thumbnails/IMG_4172.jpg" height="275" width="183" alt="IMG_4172"></A></TD>
            <TD align="center"><A href="images/IMG_4270.jpg"><IMG src="thumbnails/IMG_4270.jpg" height="275" width="183" alt="IMG_4270"></A></TD>
            <TD align="center"><A href="images/IMG_4278.jpg"><IMG src="thumbnails/IMG_4278.jpg" height="275" width="183" alt="IMG_4278"></A></TD>
            <TD align="center"><A href="images/IMG_4280.jpg"><IMG src="thumbnails/IMG_4280.jpg" height="275" width="183" alt="IMG_4280"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_4331.jpg"><IMG src="thumbnails/IMG_4331.jpg" height="275" width="183" alt="IMG_4331"></A></TD>
            <TD align="center"><A href="images/IMG_4339.jpg"><IMG src="thumbnails/IMG_4339.jpg" height="275" width="183" alt="IMG_4339"></A></TD>
            <TD align="center"><A href="images/IMG_4343.jpg"><IMG src="thumbnails/IMG_4343.jpg" height="275" width="183" alt="IMG_4343"></A></TD>
            <TD align="center"><A href="images/IMG_4362.jpg"><IMG src="thumbnails/IMG_4362.jpg" height="275" width="183" alt="IMG_4362"></A></TD>
            <TD align="center"><A href="images/IMG_4372.jpg"><IMG src="thumbnails/IMG_4372.jpg" height="275" width="183" alt="IMG_4372"></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 colspan="5" align="center">Copyright: FUCK ME BLACK . COM<br>
        18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement 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
	}
}

