#!/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>Juicy Butt dominatrix Savannah Taylor spanking 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="" 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>Juicy Butt dominatrix Savannah Taylor spanking big balloons</h3>
  
  In this balloon fetish episode we find the horny Secretary Savannah Taylor   popping big innocent balloons with poles, cigarettes and needles. After being   introduced to the balloon fetish Savannah became addicted to the balloons. She   could not go to bed without popping huge balloons and calm herself gown with the   laud sound. In this fetish film Savannah strikes back after the balloons hurt   her, inexperienced big juicy ass, during...Read the whole story on MyBalloonPorn.com!</TD>
  </TR>
<TR>
  <TD align="center"><A href="images/DSC_0541.jpg"><IMG src="thumbnails/DSC_0541.jpg" height="270" width="179" alt="DSC_0541"></A></TD>
  <TD align="center"><A href="images/DSC_0543.jpg"><IMG src="thumbnails/DSC_0543.jpg" height="270" width="179" alt="DSC_0543"></A></TD>
  <TD align="center"><A href="images/DSC_0546.jpg"><IMG src="thumbnails/DSC_0546.jpg" height="270" width="179" alt="DSC_0546"></A></TD>
  <TD align="center"><A href="images/DSC_0552.jpg"><IMG src="thumbnails/DSC_0552.jpg" height="270" width="179" alt="DSC_0552"></A></TD>
  <TD align="center"><A href="images/DSC_0553.jpg"><IMG src="thumbnails/DSC_0553.jpg" height="270" width="179" alt="DSC_0553"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/DSC_0556.jpg"><IMG src="thumbnails/DSC_0556.jpg" height="270" width="179" alt="DSC_0556"></A></TD>
  <TD align="center"><A href="images/DSC_0558.jpg"><IMG src="thumbnails/DSC_0558.jpg" height="270" width="179" alt="DSC_0558"></A></TD>
  <TD align="center"><A href="images/DSC_0573.jpg"><IMG src="thumbnails/DSC_0573.jpg" height="270" width="179" alt="DSC_0573"></A></TD>
  <TD align="center"><A href="images/DSC_0581.jpg"><IMG src="thumbnails/DSC_0581.jpg" height="270" width="179" alt="DSC_0581"></A></TD>
  <TD align="center"><A href="images/DSC_0593.jpg"><IMG src="thumbnails/DSC_0593.jpg" height="270" width="179" alt="DSC_0593"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/DSC_0595.jpg"><IMG src="thumbnails/DSC_0595.jpg" height="270" width="179" alt="DSC_0595"></A></TD>
  <TD align="center"><A href="images/DSC_0597.jpg"><IMG src="thumbnails/DSC_0597.jpg" height="270" width="179" alt="DSC_0597"></A></TD>
  <TD align="center"><A href="images/DSC_0632.jpg"><IMG src="thumbnails/DSC_0632.jpg" height="270" width="179" alt="DSC_0632"></A></TD>
  <TD align="center"><A href="images/DSC_0636.jpg"><IMG src="thumbnails/DSC_0636.jpg" height="270" width="179" alt="DSC_0636"></A></TD>
  <TD align="center"><A href="images/DSC_0640.jpg"><IMG src="thumbnails/DSC_0640.jpg" height="270" width="179" alt="DSC_0640"></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 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>
    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=""></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

	}

}



