#!/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 MILF and a Teen in Blow to Pop Balloon lesbo Party</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="962" border=0  align="center" cellpadding=5 cellspacing=5>

<TR>
  <TD colspan="3" align="center"><h2>Big boob MILF and a Teen in Blow to Pop Balloon Lesbo Party</h2>
  
 In this kinky blow to pop balloon video we find our actresses - MILF Lya   and teen Cassandra popping big balloons with their clean female feet.   MILF Lya invited Cassandra to teach her the fetish ways of popping big   burstable balloons and enjoy her sweet teen body and large natural   breasts. At first Cassandra was shocked by the laud sound of popping the   huge balloons but after a while she got used to it and even started   enjoying when...Read the whole story on MyBalloonPorn.com!</TD>
  </TR>
<TR>
  <TD align="center"><A href="images/DSC_0255.jpg"><IMG src="thumbnails/DSC_0255.jpg" height="199" width="300" alt="DSC_0255"></A></TD>
  <TD align="center"><A href="images/DSC_0275.jpg"><IMG src="thumbnails/DSC_0275.jpg" height="199" width="300" alt="DSC_0275"></A></TD>
  <TD align="center"><A href="images/DSC_0298.jpg"><IMG src="thumbnails/DSC_0298.jpg" height="199" width="300" alt="DSC_0298"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/DSC_0332.jpg"><IMG src="thumbnails/DSC_0332.jpg" height="199" width="300" alt="DSC_0332"></A></TD>
  <TD align="center"><A href="images/DSC_0339.jpg"><IMG src="thumbnails/DSC_0339.jpg" height="199" width="300" alt="DSC_0339"></A></TD>
  <TD align="center"><A href="images/DSC_0344.jpg"><IMG src="thumbnails/DSC_0344.jpg" height="199" width="300" alt="DSC_0344"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/DSC_0355.jpg"><IMG src="thumbnails/DSC_0355.jpg" height="199" width="300" alt="DSC_0355"></A></TD>
  <TD align="center"><A href="images/DSC_0383.jpg"><IMG src="thumbnails/DSC_0383.jpg" height="199" width="300" alt="DSC_0383"></A></TD>
  <TD align="center"><A href="images/DSC_0385.jpg"><IMG src="thumbnails/DSC_0385.jpg" height="199" width="300" alt="DSC_0385"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/DSC_0387.jpg"><IMG src="thumbnails/DSC_0387.jpg" height="199" width="300" alt="DSC_0387"></A></TD>
  <TD align="center"><A href="images/DSC_0390.jpg"><IMG src="thumbnails/DSC_0390.jpg" height="199" width="300" alt="DSC_0390"></A></TD>
  <TD align="center"><A href="images/DSC_0394.jpg"><IMG src="thumbnails/DSC_0394.jpg" height="199" width="300" alt="DSC_0394"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/DSC_0400.jpg"><IMG src="thumbnails/DSC_0400.jpg" height="199" width="300" alt="DSC_0400"></A></TD>
  <TD align="center"><A href="images/DSC_0403.jpg"><IMG src="thumbnails/DSC_0403.jpg" height="199" width="300" alt="DSC_0403"></A></TD>
  <TD align="center"><A href="images/DSC_0410.jpg"><IMG src="thumbnails/DSC_0410.jpg" height="199" width="300" alt="DSC_0410"></A></TD>
</TR>

<TR>
  <TD width="304" align="center">&nbsp;</TD>
  <TD width="304" align="center">&nbsp;</TD>
  <TD width="304" align="center">&nbsp;</TD>
</TR>
<TR>
  <TD colspan="3" 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 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>
</TR>
<TR>
  <TD colspan="3" align="center">Copyright: MY BALLOON PORN. COM<br>
2257 Info URL 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

	}

}



