#!/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>Sexy big boob MILF Julia Ann drilled 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"><h3>Sexy big boob MILF Julia Ann drilled by huge black dick</h3>
             	This hot milf had some secrets to share with the world. While her husband was   off at work, my man Deep Threat came thru and gave her what she wanted and   needed....some big black dick. Julia Ann is piping hot and ready for some nasty,   naughty sex. Deep Threat really put it on her sexing her crazy,enough of my   words, lets hear it from her mouth better yet her Diary...<strong>read the whole story on FuckMeBlack.com!</strong></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_8676.jpg"><IMG src="thumbnails/IMG_8676.jpg" height="275" width="183" alt="IMG_8676"></A></TD>
            <TD align="center"><A href="images/IMG_8677.jpg"><IMG src="thumbnails/IMG_8677.jpg" height="275" width="183" alt="IMG_8677"></A></TD>
            <TD align="center"><A href="images/IMG_8720.jpg"><IMG src="thumbnails/IMG_8720.jpg" height="275" width="183" alt="IMG_8720"></A></TD>
            <TD align="center"><A href="images/IMG_8729.jpg"><IMG src="thumbnails/IMG_8729.jpg" height="275" width="183" alt="IMG_8729"></A></TD>
            <TD align="center"><A href="images/IMG_8830.jpg"><IMG src="thumbnails/IMG_8830.jpg" height="275" width="183" alt="IMG_8830"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_8858.jpg"><IMG src="thumbnails/IMG_8858.jpg" height="275" width="183" alt="IMG_8858"></A></TD>
            <TD align="center"><A href="images/IMG_8860.jpg"><IMG src="thumbnails/IMG_8860.jpg" height="275" width="183" alt="IMG_8860"></A></TD>
            <TD align="center"><A href="images/IMG_8861.jpg"><IMG src="thumbnails/IMG_8861.jpg" height="275" width="183" alt="IMG_8861"></A></TD>
            <TD align="center"><A href="images/IMG_8876.jpg"><IMG src="thumbnails/IMG_8876.jpg" height="275" width="183" alt="IMG_8876"></A></TD>
            <TD align="center"><A href="images/IMG_8900.jpg"><IMG src="thumbnails/IMG_8900.jpg" height="275" width="183" alt="IMG_8900"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_8909.jpg"><IMG src="thumbnails/IMG_8909.jpg" height="275" width="183" alt="IMG_8909"></A></TD>
            <TD align="center"><A href="images/IMG_8915.jpg"><IMG src="thumbnails/IMG_8915.jpg" height="275" width="183" alt="IMG_8915"></A></TD>
            <TD align="center"><A href="images/IMG_8956.jpg"><IMG src="thumbnails/IMG_8956.jpg" height="275" width="183" alt="IMG_8956"></A></TD>
            <TD align="center"><A href="images/IMG_8969.jpg"><IMG src="thumbnails/IMG_8969.jpg" height="275" width="183" alt="IMG_8969"></A></TD>
            <TD align="center"><A href="images/IMG_8979.jpg"><IMG src="thumbnails/IMG_8979.jpg" height="275" width="183" alt="IMG_8979"></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>
            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
	}
}

