#!/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>Big boob fat teen seduced by horny Tittie Lover</title>
<META NAME="DESCRIPTION" CONTENT="Horny big tits lover seducing hot bbw teen babe">
<META NAME="KEYWORDS" CONTENT="bbw teen, plumper babe, big boobs lover, fat porno, wild sex">
<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-0028&PA=$afid&HTML=http://www.wildbbwporn.com/index.php"><img src="../template/View_Clip_01.jpg" alt="horny fat russian babes drilled by armenian lovers" width="1020" height="243" border="0"></a></td>
  </tr>
	<tr>
		<td class="FLVbg" height="466"><TABLE width="970" border=0  align="center" cellpadding=0 cellspacing=10>

<TR>
  <TD colspan="5" align="center"><h1>BBW Teen seduced by horny Tittie Lover</h1>
    	In this wild BBW porno video we find the sweet <strong>fat teen</strong> Pamela allowing to be seduced by older guy on her couch. For long time Roy was craving sex with Pamela, but he did not have any chance, because of his stupid behavior. This time though he presented himself very well. The horny <strong>bbw lover</strong> invited Pamela to a nice restaurant and showed good manners. Pamela was impressed and invited him in her house for a drink. What happened in...<strong>read the whole story on wildBBWporn.com!</strong></TD>
  </TR>
<TR>
  <TD align="center"><A href="images/bbw-teen-porno_01.jpg"><IMG src="thumbnails/bbw-teen-porno_01.jpg" height="270" width="180" alt="bbw-teen-porno_01"></A></TD>
  <TD align="center"><A href="images/bbw-teen-porno_02.jpg"><IMG src="thumbnails/bbw-teen-porno_02.jpg" height="270" width="180" alt="bbw-teen-porno_02"></A></TD>
  <TD align="center"><A href="images/bbw-teen-porno_03.jpg"><IMG src="thumbnails/bbw-teen-porno_03.jpg" height="270" width="180" alt="bbw-teen-porno_03"></A></TD>
  <TD align="center"><A href="images/bbw-teen-porno_04.jpg"><IMG src="thumbnails/bbw-teen-porno_04.jpg" height="270" width="180" alt="bbw-teen-porno_04"></A></TD>
  <TD align="center"><A href="images/bbw-teen-porno_05.jpg"><IMG src="thumbnails/bbw-teen-porno_05.jpg" height="270" width="180" alt="bbw-teen-porno_05"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/bbw-teen-porno_06.jpg"><IMG src="thumbnails/bbw-teen-porno_06.jpg" height="270" width="180" alt="bbw-teen-porno_06"></A></TD>
  <TD align="center"><A href="images/bbw-teen-porno_07.jpg"><IMG src="thumbnails/bbw-teen-porno_07.jpg" height="270" width="180" alt="bbw-teen-porno_07"></A></TD>
  <TD align="center"><A href="images/bbw-teen-porno_08.jpg"><IMG src="thumbnails/bbw-teen-porno_08.jpg" height="270" width="180" alt="bbw-teen-porno_08"></A></TD>
  <TD align="center"><A href="images/bbw-teen-porno_09.jpg"><IMG src="thumbnails/bbw-teen-porno_09.jpg" height="270" width="180" alt="bbw-teen-porno_09"></A></TD>
  <TD align="center"><A href="images/bbw-teen-porno_10.jpg"><IMG src="thumbnails/bbw-teen-porno_10.jpg" height="270" width="180" alt="bbw-teen-porno_10"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/bbw-teen-porno_11.jpg"><IMG src="thumbnails/bbw-teen-porno_11.jpg" height="270" width="180" alt="bbw-teen-porno_11"></A></TD>
  <TD align="center"><A href="images/bbw-teen-porno_12.jpg"><IMG src="thumbnails/bbw-teen-porno_12.jpg" height="270" width="180" alt="bbw-teen-porno_12"></A></TD>
  <TD align="center"><A href="images/bbw-teen-porno_13.jpg"><IMG src="thumbnails/bbw-teen-porno_13.jpg" height="270" width="180" alt="bbw-teen-porno_13"></A></TD>
  <TD align="center"><A href="images/bbw-teen-porno_14.jpg"><IMG src="thumbnails/bbw-teen-porno_14.jpg" height="270" width="180" alt="bbw-teen-porno_14"></A></TD>
  <TD align="center"><A href="images/bbw-teen-porno_15.jpg"><IMG src="thumbnails/bbw-teen-porno_15.jpg" height="270" width="180" alt="bbw-teen-porno_15"></A></TD>
</TR>


<TR>
  <TD colspan="5" align="center"><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=940106-0028&PA=$afid&HTML=http://www.wildbbwporn.com/index.php" class="EnterText">CLICK HERE TO ENTER WILD BBW PORN</a></TD>
  </TR>
<TR>
  <TD colspan="5" align="center">2257 info URL: http://wildbbwporn.com/2257.html</TD>
  </TR>


</TABLE>
	  </td>
	</tr>
	<tr>
		<td>
			<img src="../template/View_Clip_03.jpg" width="1020" height="100" alt="wild BBW porn"></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

	}

}



