#!/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>Delilah Strong seduced by 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>Delilah Strong seduced by Huge Black Dick</h1>
              	In this kinky interracial sex movie porn star babe Delilah Strong starts   with teasing the viewer, talking dirty and stripping her pink lingerie.   The blond babe spreads her hot pussy and tight ass, while talking about   the need of a big black cock penetration. The movie continues with hot   blowjob. Delilah tries to insert the long dick of John E Depth all the   way in her throat, but there was no success?! Check out this fine...<strong>read the whole story on FuckMeBlack.com!</strong></h2></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_2885.jpg"><IMG src="thumbnails/IMG_2885.jpg" height="270" width="180" alt="IMG_2885"></A></TD>
            <TD align="center"><A href="images/IMG_2913.jpg"><IMG src="thumbnails/IMG_2913.jpg" height="270" width="180" alt="IMG_2913"></A></TD>
            <TD align="center"><A href="images/IMG_2937.jpg"><IMG src="thumbnails/IMG_2937.jpg" height="270" width="180" alt="IMG_2937"></A></TD>
            <TD align="center"><A href="images/IMG_2950.jpg"><IMG src="thumbnails/IMG_2950.jpg" height="270" width="180" alt="IMG_2950"></A></TD>
            <TD align="center"><A href="images/IMG_2961.jpg"><IMG src="thumbnails/IMG_2961.jpg" height="270" width="180" alt="IMG_2961"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_2975.jpg"><IMG src="thumbnails/IMG_2975.jpg" height="270" width="180" alt="IMG_2975"></A></TD>
            <TD align="center"><A href="images/IMG_2976.jpg"><IMG src="thumbnails/IMG_2976.jpg" height="270" width="180" alt="IMG_2976"></A></TD>
            <TD align="center"><A href="images/IMG_2977.jpg"><IMG src="thumbnails/IMG_2977.jpg" height="270" width="180" alt="IMG_2977"></A></TD>
            <TD align="center"><A href="images/IMG_2997.jpg"><IMG src="thumbnails/IMG_2997.jpg" height="270" width="180" alt="IMG_2997"></A></TD>
            <TD align="center"><A href="images/IMG_3006.jpg"><IMG src="thumbnails/IMG_3006.jpg" height="270" width="180" alt="IMG_3006"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_3024.jpg"><IMG src="thumbnails/IMG_3024.jpg" height="270" width="180" alt="IMG_3024"></A></TD>
            <TD align="center"><A href="images/IMG_3032.jpg"><IMG src="thumbnails/IMG_3032.jpg" height="270" width="180" alt="IMG_3032"></A></TD>
            <TD align="center"><A href="images/IMG_3035.jpg"><IMG src="thumbnails/IMG_3035.jpg" height="270" width="180" alt="IMG_3035"></A></TD>
            <TD align="center"><A href="images/IMG_3049.jpg"><IMG src="thumbnails/IMG_3049.jpg" height="270" width="180" alt="IMG_3049"></A></TD>
            <TD align="center"><A href="images/IMG_3055.jpg"><IMG src="thumbnails/IMG_3055.jpg" height="270" width="180" alt="IMG_3055"></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
	}
}

