#!/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>Wild BBW Belly Fuck Hardcore Porno from Eastern Europe</title>
<META NAME="DESCRIPTION" CONTENT="Busty bbw babe Radka allows horny armenian garo to fuck her belly">
<META NAME="KEYWORDS" CONTENT="bbw belly fuck busty fat woman, big boobs plumper, wild chubby porno, hardcore cumshot sex">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../../fmb.css" rel="stylesheet" type="text/css">
<link rel="canonical" href="http://wildbbwporn.com/TGP/bbw-belly-fuck/index.html">
</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"><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="4" align="center"><h1>Wild BBW Belly Fuck Hardcore Porno</h1>
    	Busty BBW Radka Piratkova was famous in Eastern Europe for her <strong>wild belly fuck</strong>. Radka has huge tits and big juicy ass, but her belly was her main feature - flabby and soft, but also shaped well. A lot of guys from all over the world have come to <strong>fuck her belly</strong> as it also feels like having anal like sex. In this episode horny Armenian Garo has paid good money to drill Radka in every hole she has plus her soft juicy belly. The wild bbw porno.....<strong>read the whole story and watch the fat movie on wildBBWporn.com!</strong></TD>
  </TR>
<TR>
  <TD align="center"><A href="images/bbw-belly-Fuck_01.jpg"><IMG src="thumbnails/bbw-belly-Fuck_01.jpg" height="270" width="202" border="1" alt="bbw-belly-Fuck_01"></A></TD>
  <TD align="center"><A href="images/bbw-belly-Fuck_03.jpg"><IMG src="thumbnails/bbw-belly-Fuck_03.jpg" height="270" width="202" border="1" alt="bbw-belly-Fuck_03"></A></TD>
  <TD align="center"><A href="images/bbw-belly-Fuck_04.jpg"><IMG src="thumbnails/bbw-belly-Fuck_04.jpg" height="270" width="202" border="1" alt="bbw-belly-Fuck_04"></A></TD>
  <TD align="center"><A href="images/bbw-belly-Fuck_05.jpg"><IMG src="thumbnails/bbw-belly-Fuck_05.jpg" height="270" width="202" border="1" alt="bbw-belly-Fuck_05"></A></TD>
</TR>
<TR>
  <TD align="center"><a href="images/bbw-belly-Fuck_06.jpg"><img src="thumbnails/bbw-belly-Fuck_06.jpg" height="270" width="202" border="1" alt="bbw-belly-Fuck_06"></a></TD>
  <TD align="center"><a href="images/bbw-belly-Fuck_08.jpg"><img src="thumbnails/bbw-belly-Fuck_08.jpg" height="270" width="202" border="1" alt="bbw-belly-Fuck_08"></a></TD>
  <TD align="center"><a href="images/bbw-belly-Fuck_13.jpg"><img src="thumbnails/bbw-belly-Fuck_13.jpg" height="270" width="202" border="1" alt="bbw-belly-Fuck_13"></a></TD>
  <TD align="center"><a href="images/bbw-belly-Fuck_14.jpg"><img src="thumbnails/bbw-belly-Fuck_14.jpg" height="270" width="202" border="1" alt="bbw-belly-Fuck_14"></a></TD>
  </TR>
<TR>
  <TD align="center"><a href="images/bbw-belly-Fuck_15.jpg"><img src="thumbnails/bbw-belly-Fuck_15.jpg" height="270" width="202" border="1" alt="bbw-belly-Fuck_15"></a></TD>
  <TD align="center"><a href="images/bbw-belly-Fuck_18.jpg"><img src="thumbnails/bbw-belly-Fuck_18.jpg" height="270" width="202" border="1" alt="bbw-belly-Fuck_18"></a></TD>
  <TD align="center"><a href="images/bbw-belly-Fuck_19.jpg"><img src="thumbnails/bbw-belly-Fuck_19.jpg" height="270" width="202" border="1" alt="bbw-belly-Fuck_19"></a></TD>
  <TD align="center"><a href="images/bbw-belly-Fuck_22.jpg"><img src="thumbnails/bbw-belly-Fuck_22.jpg" height="270" width="202" border="1" alt="bbw-belly-Fuck_22"></a></TD>
  </TR>
<TR>
  <TD align="center"><a href="images/bbw-belly-Fuck_23.jpg"><img src="thumbnails/bbw-belly-Fuck_23.jpg" height="270" width="202" border="1" alt="bbw-belly-Fuck_23"></a></TD>
  <TD align="center"><a href="images/bbw-belly-Fuck_28.jpg"><img src="thumbnails/bbw-belly-Fuck_28.jpg" alt="bbw cumshot porno" width="202" height="270" border="1"></a></TD>
  <TD align="center"><a href="images/bbw-belly-Fuck_29.jpg"><img src="thumbnails/bbw-belly-Fuck_29.jpg" height="270" width="202" border="1" alt="bbw-belly-Fuck_29"></a></TD>
  <TD align="center"><a href="images/bbw-belly-Fuck_35.jpg"><img src="thumbnails/bbw-belly-Fuck_35.jpg" height="270" width="202" border="1" alt="bbw-belly-Fuck_35"></a></TD>
  </TR>
<TR>
  <TD colspan="4" 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="4" align="center">2257 info at: 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

	}

}



