#!/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>Hot sexy amateur lesbian tattoo babes fighting and popping big 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="3" align="center"><h3>Hot sexy amateur lesbian tattoo babes fighting and popping big balloons</h3>
  
  Kinky interracial lesbian babes with big and small boobs fighting over big burstable balloons during Mistress Ania's nude birthday party. Check out how these horny amateur tattoo babes pop the big innocent balloons with their fat sexy asses. The kinky lesbos even tried to pop some beach balls...Read the whole story on MyBalloonPorn.com!    </TD>
  </TR>
<TR>
  <TD width="309" align="center"><a href="Star_Natasha_beachball_trailer_NEW.wmv"><img src="tv-BalloonInterracialLesbo.jpg" alt="interracial balloon popping lesbians" width="300" height="300"></a></TD>
  <TD width="307" align="center"><a href="MistressAniaBirthdayErinKymAaeon.wmv"><img src="tv-BalloonLesboOrgy.jpg" alt="big boob lesbian mistress popping balloons" width="300" height="300"></a></TD>
  <TD width="309" align="center"><a href="Star_Natasha_BalloonFight_trailer.wmv"><img src="tv-BalloonInterracialFight.jpg" alt="interracial tattoo lesbians fighting over big balloons" width="300" height="300"></a></TD>
</TR>



<TR>
  <TD colspan="3" 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 colspan="3" align="center">&nbsp;</TD>
</TR>

<TR>
  <TD colspan="3" align="center">&nbsp;</TD>
  </TR>
<TR>
  <TD colspan="3" 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

	}

}



