#!/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>Asian MILF Kayme Kai in Lunchtime Creep Session</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><strong>Asian MILF Kayme Kai in Lunchtime Creep Session</strong></h1>
              	In this classic hardcore interracial movie we find Asian babe Kayme Kai frustrated with her husband looking for a big dick to satisfy her sexual needs. She was so pissed off with her husband that she decided to have sex with big dick coworker Johnny during the lunch break at work. They went to Johnny's house both hungry for sex. Johnny likes tight Asian pussies and Kaime likes big and long black dicks deep in her vagina after dipping them in...<strong>read the whole story on FuckMeBlack.com!</strong></h2></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_5357.jpg"><IMG src="thumbnails/IMG_5357.jpg" height="270" width="180" alt="IMG_5357"></A></TD>
            <TD align="center"><A href="images/IMG_5398.jpg"><IMG src="thumbnails/IMG_5398.jpg" height="270" width="180" alt="IMG_5398"></A></TD>
            <TD align="center"><A href="images/IMG_5426.jpg"><IMG src="thumbnails/IMG_5426.jpg" height="270" width="180" alt="IMG_5426"></A></TD>
            <TD align="center"><A href="images/IMG_5449.jpg"><IMG src="thumbnails/IMG_5449.jpg" height="270" width="180" alt="IMG_5449"></A></TD>
            <TD align="center"><A href="images/IMG_5459.jpg"><IMG src="thumbnails/IMG_5459.jpg" height="270" width="180" alt="IMG_5459"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_5508.jpg"><IMG src="thumbnails/IMG_5508.jpg" height="270" width="180" alt="IMG_5508"></A></TD>
            <TD align="center"><A href="images/IMG_5516.jpg"><IMG src="thumbnails/IMG_5516.jpg" height="270" width="180" alt="IMG_5516"></A></TD>
            <TD align="center"><A href="images/IMG_5525.jpg"><IMG src="thumbnails/IMG_5525.jpg" height="270" width="180" alt="IMG_5525"></A></TD>
            <TD align="center"><A href="images/IMG_5529.jpg"><IMG src="thumbnails/IMG_5529.jpg" height="270" width="180" alt="IMG_5529"></A></TD>
            <TD align="center"><A href="images/IMG_5537.jpg"><IMG src="thumbnails/IMG_5537.jpg" height="270" width="180" alt="IMG_5537"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_5538.jpg"><IMG src="thumbnails/IMG_5538.jpg" height="270" width="180" alt="IMG_5538"></A></TD>
            <TD align="center"><A href="images/IMG_5589.jpg"><IMG src="thumbnails/IMG_5589.jpg" height="270" width="180" alt="IMG_5589"></A></TD>
            <TD align="center"><A href="images/IMG_5593.jpg"><IMG src="thumbnails/IMG_5593.jpg" height="270" width="180" alt="IMG_5593"></A></TD>
            <TD align="center"><A href="images/IMG_5614.jpg"><IMG src="thumbnails/IMG_5614.jpg" height="270" width="180" alt="IMG_5614"></A></TD>
            <TD align="center"><A href="images/IMG_5622.jpg"><IMG src="thumbnails/IMG_5622.jpg" height="270" width="180" alt="IMG_5622"></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
	}
}

