#!/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>Oriental babe Kyanna Lee stretched by the big black cock of John E Depth</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>Oriental babe Kyanna Lee stretched by the big black cock of John E Depth</h3>
             	Man, what can i say about Kyanee Lee, hot, horny and loves black dick especially   an extra long one. The head skills on this chick is crazy. "Look no hands, thats   how good her lip service was...i was wildin out when she was stroking my dick   cause she kept saying, "I can't believe how big u are, where did u get this from   (lol) Its a gift from the gods baby, and i swear to do right by my sword.(lol)   she plays the role of a disorganized student who can't get it together. I got   my acting skills on by playing the professor who....<strong>read the whole story on FuckMeBlack.com!</strong></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_3166.jpg"><IMG src="thumbnails/IMG_3166.jpg" height="275" width="183" alt="IMG_3166"></A></TD>
            <TD align="center"><A href="images/IMG_3276.jpg"><IMG src="thumbnails/IMG_3276.jpg" height="275" width="183" alt="IMG_3276"></A></TD>
            <TD align="center"><A href="images/IMG_3334.jpg"><IMG src="thumbnails/IMG_3334.jpg" height="275" width="183" alt="IMG_3334"></A></TD>
            <TD align="center"><A href="images/IMG_3345.jpg"><IMG src="thumbnails/IMG_3345.jpg" height="275" width="183" alt="IMG_3345"></A></TD>
            <TD align="center"><A href="images/IMG_3387.jpg"><IMG src="thumbnails/IMG_3387.jpg" height="275" width="183" alt="IMG_3387"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_3389.jpg"><IMG src="thumbnails/IMG_3389.jpg" height="275" width="183" alt="IMG_3389"></A></TD>
            <TD align="center"><A href="images/IMG_3396.jpg"><IMG src="thumbnails/IMG_3396.jpg" height="275" width="183" alt="IMG_3396"></A></TD>
            <TD align="center"><A href="images/IMG_3401.jpg"><IMG src="thumbnails/IMG_3401.jpg" height="275" width="183" alt="IMG_3401"></A></TD>
            <TD align="center"><A href="images/IMG_3413.jpg"><IMG src="thumbnails/IMG_3413.jpg" height="275" width="183" alt="IMG_3413"></A></TD>
            <TD align="center"><A href="images/IMG_3427.jpg"><IMG src="thumbnails/IMG_3427.jpg" height="275" width="183" alt="IMG_3427"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_3430.jpg"><IMG src="thumbnails/IMG_3430.jpg" height="275" width="183" alt="IMG_3430"></A></TD>
            <TD align="center"><A href="images/IMG_3457.jpg"><IMG src="thumbnails/IMG_3457.jpg" height="275" width="183" alt="IMG_3457"></A></TD>
            <TD align="center"><A href="images/IMG_3460.jpg"><IMG src="thumbnails/IMG_3460.jpg" height="275" width="183" alt="IMG_3460"></A></TD>
            <TD align="center"><A href="images/IMG_3466.jpg"><IMG src="thumbnails/IMG_3466.jpg" height="275" width="183" alt="IMG_3466"></A></TD>
            <TD align="center"><A href="images/IMG_3469.jpg"><IMG src="thumbnails/IMG_3469.jpg" height="275" width="183" alt="IMG_3469"></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 colspan="5" align="center">&nbsp;</TD>
          </TR>
          <TR>
            <TD colspan="5" align="center">&nbsp;</TD>
          </TR>
          <TR>
            <TD colspan="5" 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
	}
}

