#!/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>Rebecca Linares Milking a Bitchboy in this handjob movie</TITLE>

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

<style type="text/css">

<!--

body {

	margin: 0px;

	padding: 0px;

	background-color: #000000;

	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; }

body,td,th {

}

h1 {

	color: #000000;

}

a:link {

	color: #FF0000;

}

a:visited {

	color: #CC0000;

}

a:hover {

	color: #FFCC00;

}

a:active {

	color: #CC0000;

}



-->

</style>

</HEAD>

<body>

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

  <tr>

    <th align="center" valign="top" scope="col"><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=940106-0018&PA=$afid&HTML=http://www.handjobsalon.com/index.php"><img src="../handjobsalon.jpg" alt="www.handjobsalon.com" width="608" height="142" border="0"></a></th>

  </tr>

  <tr>

    <th align="center" valign="top" bgcolor="#FFFFCC" scope="col"><TABLE width="600" border=0  align="center" cellpadding=0 cellspacing=5>

      <TR>

        <TD width="580" colspan="3" align="center"><h2>Rebecca Linares Milking a Bitchboy</h2>

          Hot Spanish beauty Rebecca Linares dominating a young bitchboy. She spanks him   and makes him say that he is a girl. Check out this <A href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=940106-0018&PA=$afid&HTML=http://galacticgirls.com/index.php">female domination</A> fetish movie   featuring the dark BDSM pervert side of cute porn star babe Rebecca Linares.   Stay tuned to HandjobSalon.com!</TD>

        </TR>

      <TR>

        <TD align="center"><A href="images/IMG_3502.jpg"><IMG src="thumbnails/IMG_3502.jpg" height="226" width="150" alt="IMG_3502"></A></TD>

        <TD align="center"><A href="images/IMG_3527.jpg"><IMG src="thumbnails/IMG_3527.jpg" height="226" width="150" alt="IMG_3527"></A></TD>

        <TD align="center"><A href="images/IMG_3531.jpg"><IMG src="thumbnails/IMG_3531.jpg" height="226" width="150" alt="IMG_3531"></A></TD>

      </TR>

      <TR>

        <TD align="center"><A href="images/IMG_3541.jpg"><IMG src="thumbnails/IMG_3541.jpg" height="226" width="150" alt="IMG_3541"></A></TD>

        <TD align="center"><A href="images/IMG_3545.jpg"><IMG src="thumbnails/IMG_3545.jpg" height="226" width="150" alt="IMG_3545"></A></TD>

        <TD align="center"><A href="images/IMG_3550.jpg"><IMG src="thumbnails/IMG_3550.jpg" height="226" width="150" alt="IMG_3550"></A></TD>

      </TR>

      <TR>

        <TD align="center"><A href="images/IMG_3551.jpg"><IMG src="thumbnails/IMG_3551.jpg" height="226" width="150" alt="IMG_3551"></A></TD>

        <TD align="center"><A href="images/IMG_3563.jpg"><IMG src="thumbnails/IMG_3563.jpg" height="226" width="150" alt="IMG_3563"></A></TD>

        <TD align="center"><A href="images/IMG_3566.jpg"><IMG src="thumbnails/IMG_3566.jpg" height="226" width="150" alt="IMG_3566"></A></TD>

      </TR>

      <TR>

        <TD align="center"><A href="images/IMG_3575.jpg"><IMG src="thumbnails/IMG_3575.jpg" height="226" width="150" alt="IMG_3575"></A></TD>

        <TD align="center"><A href="images/IMG_3580.jpg"><IMG src="thumbnails/IMG_3580.jpg" height="226" width="150" alt="IMG_3580"></A></TD>

        <TD align="center"><A href="images/IMG_3581.jpg"><IMG src="thumbnails/IMG_3581.jpg" height="226" width="150" alt="IMG_3581"></A></TD>

      </TR>

      <TR>

        <TD align="center"><A href="images/IMG_3590.jpg"><IMG src="thumbnails/IMG_3590.jpg" height="226" width="150" alt="IMG_3590"></A></TD>

        <TD align="center"><A href="images/IMG_3597.jpg"><IMG src="thumbnails/IMG_3597.jpg" height="226" width="150" alt="IMG_3597"></A></TD>

        <TD align="center"><A href="images/IMG_3598.jpg"><IMG src="thumbnails/IMG_3598.jpg" height="226" width="150" alt="IMG_3598"></A></TD>

      </TR>









    </TABLE></th>

  </tr>

</table>

<p align="center"><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=940106-0018&PA=$afid&HTML=http://www.handjobsalon.com/index.php" class="style23">CLICK HERE TO BROWSE HANDJOB SALON</a></p>





<div align="center">

  <p><font face="Verdana, Arial, Helvetica, sans-serif"><strong><font color="#FFFFFF" size="2">HANDJOBSALON &#8482;</font></strong></font></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

	}

}



