#!/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~";





<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"

"http://www.w3.org/TR/html4/loose.dtd">

<html>

<HEAD>

<title>Blond MILF Kylee Lovit in Balloon Dance</title>

<meta http-equiv="Content-Type" content="text/html; charset=utf-8">

<style type="text/css">

<!--

body {

	margin: 0px;

	padding: 0px;

	font-family: Verdana, Arial, Helvetica, sans-serif;

}



.tb-border {

	border-top: 4px none #FFFFFF;

	border-right: 4px dashed #FFFFFF;

	border-bottom: 4px dashed #FFFFFF;

	border-left: 4px dashed #FFFFFF;

}

.style23 {font-size: 26px; text-decoration: underline overline blink; font-family: Verdana, Arial, Helvetica, sans-serif; font-weight: bold; }





-->

</style>

</HEAD>

<body bgcolor="#000000" text="#FFFFFF" link="#FFCC00" vlink="#FF9900" alink="#CC3300">

<table width="608" align="center" cellpadding="0" cellspacing="0" class="tb-border">

  <tr> 

    <th align="center" valign="top" scope="col"><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0000&PA=$afid&HTML=http://myballoonporn.com/index.php"><img src="../balloonfenzy.jpg" alt="balloon popping fetish movies" width="608" height="142" border="0"></a></th>

  </tr>

  <tr> 

    <th align="center" valign="top" bgcolor="#333333" scope="col"><TABLE width="606" border=0  align="center">



<TR>

  <TD colspan="3" align="center"><h2>Kylee Lovit in Balloon Dance</h2>

  Kylee Lovit, loves sticking her long fingernails in balloons and POPPING them.   Watch her first blow, cares and dance with the balloons before violently   destroying them. Her hot round tits and full ass bounce as she dances with   balloons and reveals all.</TD>

  </TR>

<TR>

  <TD align="center"><A href="images/DSC_0154.jpg"><IMG src="thumbnails/DSC_0154.jpg" height="285" width="190" alt="DSC_0154"></A></TD>

  <TD align="center"><A href="images/DSC_0160.jpg"><IMG src="thumbnails/DSC_0160.jpg" height="285" width="190" alt="DSC_0160"></A></TD>

  <TD align="center"><A href="images/DSC_0162.jpg"><IMG src="thumbnails/DSC_0162.jpg" height="285" width="190" alt="DSC_0162"></A></TD>

</TR>

<TR>

  <TD align="center"><A href="images/DSC_0167.jpg"><IMG src="thumbnails/DSC_0167.jpg" height="285" width="190" alt="DSC_0167"></A></TD>

  <TD align="center"><A href="images/DSC_0169.jpg"><IMG src="thumbnails/DSC_0169.jpg" height="285" width="190" alt="DSC_0169"></A></TD>

  <TD align="center"><A href="images/DSC_0175.jpg"><IMG src="thumbnails/DSC_0175.jpg" height="285" width="190" alt="DSC_0175"></A></TD>

</TR>

<TR>

  <TD align="center"><A href="images/DSC_0182.jpg"><IMG src="thumbnails/DSC_0182.jpg" height="285" width="190" alt="DSC_0182"></A></TD>

  <TD align="center"><A href="images/DSC_0190.jpg"><IMG src="thumbnails/DSC_0190.jpg" height="285" width="190" alt="DSC_0190"></A></TD>

  <TD align="center"><A href="images/DSC_0193.jpg"><IMG src="thumbnails/DSC_0193.jpg" height="285" width="190" alt="DSC_0193"></A></TD>

</TR>

<TR>

  <TD align="center"><A href="images/DSC_0202.jpg"><IMG src="thumbnails/DSC_0202.jpg" height="285" width="190" alt="DSC_0202"></A></TD>

  <TD align="center"><A href="images/DSC_0205.jpg"><IMG src="thumbnails/DSC_0205.jpg" height="285" width="190" alt="DSC_0205"></A></TD>

  <TD align="center"><A href="images/DSC_0206.jpg"><IMG src="thumbnails/DSC_0206.jpg" height="285" width="190" alt="DSC_0206"></A></TD>

</TR>

<TR>

  <TD align="center"><A href="images/DSC_0211.jpg"><IMG src="thumbnails/DSC_0211.jpg" height="285" width="190" alt="DSC_0211"></A></TD>

  <TD align="center"><A href="images/DSC_0220.jpg"><IMG src="thumbnails/DSC_0220.jpg" height="285" width="190" alt="DSC_0220"></A></TD>

  <TD align="center"><A href="images/DSC_0225.jpg"><IMG src="thumbnails/DSC_0225.jpg" height="285" width="190" alt="DSC_0225"></A></TD>

</TR>



</TABLE></th>

  </tr>

</table>

<p align="center"><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0000&PA=$afid&HTML=http://myballoonporn.com/index.php/index.php" class="style23">CLICK HERE TO BROWSE BALLOON FRENZY</a></p>



<div align="center">

  <p><font face="Verdana, Arial, Helvetica, sans-serif"><strong><font color="#FFFFFF" size="2">BALLOONFRENZY &#8482;</font></strong></font><br>

    18 U.S.C 2257 Record-Keeping Requirements Compliance   Statement at:<br>

  http://www.balloonfrenzy.com/2257.html</p>

</div>

</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

	}

}



