#!/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>Small Boob  Tattoo Babe Dakota Rose in Cigarette Fetish Balloon Popping</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>Small Boob  Tattoo Babe Dakota Rose in Cigarette Fetish Balloon Popping</h3>
  
  Dakota Rose has a deep dark and dirty little secret; she gets off on smoking and   playing with balloons. Watch Dakota confess all, smoking her little cigarette   and abusing balloons of all shapes and sizes. This Fetish model loves to pop   balloons by putting the tip of her cigarette on there thing latex bodies. Enjoy   as she blows smoke into her little red balloon and demonstrates her cigarette   popping fetish to all her fans....Read the whole story on MyBalloonPorn.com!    </TD>
  </TR>
<TR>
  <TD align="center"><A href="images/SJM_5068.jpg"><IMG src="thumbnails/SJM_5068.jpg" height="270" width="179" alt="SJM_5068"></A></TD>
  <TD align="center"><A href="images/SJM_5082.jpg"><IMG src="thumbnails/SJM_5082.jpg" height="270" width="179" alt="SJM_5082"></A></TD>
  <TD align="center"><A href="images/SJM_5122.jpg"><IMG src="thumbnails/SJM_5122.jpg" height="270" width="179" alt="SJM_5122"></A></TD>
  <TD align="center"><A href="images/SJM_5194.jpg"><IMG src="thumbnails/SJM_5194.jpg" height="270" width="179" alt="SJM_5194"></A></TD>
  <TD align="center"><A href="images/SJM_5238.jpg"><IMG src="thumbnails/SJM_5238.jpg" height="270" width="179" alt="SJM_5238"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/SJM_5242.jpg"><IMG src="thumbnails/SJM_5242.jpg" height="270" width="179" alt="SJM_5242"></A></TD>
  <TD align="center"><A href="images/SJM_5286.jpg"><IMG src="thumbnails/SJM_5286.jpg" height="270" width="179" alt="SJM_5286"></A></TD>
  <TD align="center"><A href="images/SJM_5321.jpg"><IMG src="thumbnails/SJM_5321.jpg" height="270" width="179" alt="SJM_5321"></A></TD>
  <TD align="center"><A href="images/SJM_5330.jpg"><IMG src="thumbnails/SJM_5330.jpg" height="270" width="179" alt="SJM_5330"></A></TD>
  <TD align="center"><A href="images/SJM_5333.jpg"><IMG src="thumbnails/SJM_5333.jpg" height="270" width="179" alt="SJM_5333"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/SJM_5337.jpg"><IMG src="thumbnails/SJM_5337.jpg" height="270" width="179" alt="SJM_5337"></A></TD>
  <TD align="center"><A href="images/SJM_5338.jpg"><IMG src="thumbnails/SJM_5338.jpg" height="270" width="179" alt="SJM_5338"></A></TD>
  <TD align="center"><A href="images/SJM_5344.jpg"><IMG src="thumbnails/SJM_5344.jpg" height="270" width="179" alt="SJM_5344"></A></TD>
  <TD align="center"><A href="images/SJM_5349.jpg"><IMG src="thumbnails/SJM_5349.jpg" height="270" width="179" alt="SJM_5349"></A></TD>
  <TD align="center"><A href="images/SJM_5358.jpg"><IMG src="thumbnails/SJM_5358.jpg" height="270" width="179" alt="SJM_5358"></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 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

	}

}



