#!/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>Black big boob Tattoo BBW Star Popping Huge Balloons</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../../MBP.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<table width="1020" 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-0000&PA=$afid&HTML=http://www.myballoonporn.com/index.php"><img src="../../images/join_01.jpg" alt="my fetish balloon porn videos" width="1020" height="257" border="0"></a></td>
  </tr>
	<tr>
		<td align="center" class="ViewClipBG"><TABLE width="945" border=0  align="center" cellpadding=0 cellspacing=5>

<TR>
  <TD colspan="5" align="center"><h3>Black big boob Tattoo BBW Star Popping Huge Balloons</h3>
  
  Big boob black teen Star works for a well known hotel in Beverly Hills. She was   the party organizer for the hotel. Star had also a kinky white boyfriend with   small penis. One day Star had to go back home to pickup some balloons she needed   for the party...and she caught her boyfriend having sex with her best friend   Natasha. Star was shocked, she went back to work in tears. The big boob fat babe   locked herself in....Read the whole story on MyBalloonPorn.com!    </TD>
  </TR>
<TR>
  <TD align="center"><A href="images/DSC_0031.jpg"><IMG src="thumbnails/DSC_0031.jpg" height="270" width="179" alt="DSC_0031"></A></TD>
  <TD align="center"><A href="images/DSC_0040.jpg"><IMG src="thumbnails/DSC_0040.jpg" height="270" width="179" alt="DSC_0040"></A></TD>
  <TD align="center"><A href="images/DSC_0064.jpg"><IMG src="thumbnails/DSC_0064.jpg" height="270" width="179" alt="DSC_0064"></A></TD>
  <TD align="center"><A href="images/DSC_0085.jpg"><IMG src="thumbnails/DSC_0085.jpg" height="270" width="179" alt="DSC_0085"></A></TD>
  <TD align="center"><A href="images/DSC_0089.jpg"><IMG src="thumbnails/DSC_0089.jpg" height="270" width="179" alt="DSC_0089"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/DSC_0095.jpg"><IMG src="thumbnails/DSC_0095.jpg" height="270" width="179" alt="DSC_0095"></A></TD>
  <TD align="center"><A href="images/DSC_0098.jpg"><IMG src="thumbnails/DSC_0098.jpg" height="270" width="179" alt="DSC_0098"></A></TD>
  <TD align="center"><A href="images/DSC_0112.jpg"><IMG src="thumbnails/DSC_0112.jpg" height="270" width="179" alt="DSC_0112"></A></TD>
  <TD align="center"><A href="images/DSC_0114.jpg"><IMG src="thumbnails/DSC_0114.jpg" height="270" width="179" alt="DSC_0114"></A></TD>
  <TD align="center"><A href="images/DSC_0115.jpg"><IMG src="thumbnails/DSC_0115.jpg" height="270" width="179" alt="DSC_0115"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/DSC_0120.jpg"><IMG src="thumbnails/DSC_0120.jpg" height="270" width="179" alt="DSC_0120"></A></TD>
  <TD align="center"><A href="images/DSC_0131.jpg"><IMG src="thumbnails/DSC_0131.jpg" height="270" width="179" alt="DSC_0131"></A></TD>
  <TD align="center"><A href="images/DSC_0143.jpg"><IMG src="thumbnails/DSC_0143.jpg" height="270" width="179" alt="DSC_0143"></A></TD>
  <TD align="center"><A href="images/DSC_0144.jpg"><IMG src="thumbnails/DSC_0144.jpg" height="270" width="179" alt="DSC_0144"></A></TD>
  <TD align="center"><A href="images/DSC_0147.jpg"><IMG src="thumbnails/DSC_0147.jpg" height="270" width="179" alt="DSC_0147"></A></TD>
</TR>


<TR>
  <TD width="183" align="center">&nbsp;</TD>
  <TD width="183" align="center">&nbsp;</TD>
  <TD width="183" align="center">&nbsp;</TD>
  <TD width="183" align="center">&nbsp;</TD>
  <TD width="183" align="center">&nbsp;</TD>
</TR>
<TR>
  <TD colspan="5" align="center"><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=940106-0000&PA=$afid&HTML=http://www.myballoonporn.com/index.php" class="EnterText"><span class="EnterText">CLICK HERE TO ENTER MY BALLOON PORN</span></a></TD>
</TR>
<TR>
  <TD colspan="5" 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: MY BALLOON PORN. COM<br>
  18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement at:<br>
  http://myballoonporn.com/2257.html</TD>
</TR>


</TABLE></td>
  </tr>
	<tr>
		<td>
			<img src="../../images/join_03.jpg" width="1020" height="65" alt=""></td>
  </tr>
	<tr>
		<td>
			<img src="../../images/join_04.jpg" width="1020" height="79" alt="sexy tattoo babes popping huge porn balloons"></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

	}

}



