#!/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>Karrlie Dawn as Nasty Housewife in this handjob bondage 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: #660000;

}

a:active {

	color: #CC0000;

}



-->

</style>

</HEAD>

<body>

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

  <tr>

    <th align="center" valign="top" bgcolor="#FFFFCC" 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=5 cellspacing=5>

      <TR>

        <TD width="580" colspan="3" align="center"><h2>Karrlie Dawn as Nasty Housewife</h2>

          Big boob fetish slut Karlie Dawn acting as a nasty dominating  housewife. She milks her husband every day and makes him lick and eat  his cum off her sweet pussy and firm ass. Check out this kinky handjob  movie featuring <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=940106-0018&PA=$afid&HTML=http://adultfantasypark.com/index.php">female domination</a> and husband humiliation!</TD>

        </TR>

      <TR>

        <TD align="center"><A href="images/IMG_6401.jpg"><IMG src="thumbnails/IMG_6401.jpg" height="240" width="160" alt="IMG_6401"></A></TD>

        <TD align="center"><A href="images/IMG_6405.jpg"><IMG src="thumbnails/IMG_6405.jpg" height="240" width="160" alt="IMG_6405"></A></TD>

        <TD align="center"><A href="images/IMG_6408.jpg"><IMG src="thumbnails/IMG_6408.jpg" height="240" width="160" alt="IMG_6408"></A></TD>

      </TR>

      <TR>

        <TD align="center"><A href="images/IMG_6411.jpg"><IMG src="thumbnails/IMG_6411.jpg" height="240" width="160" alt="IMG_6411"></A></TD>

        <TD align="center"><A href="images/IMG_6419.jpg"><IMG src="thumbnails/IMG_6419.jpg" height="240" width="160" alt="IMG_6419"></A></TD>

        <TD align="center"><A href="images/IMG_6421.jpg"><IMG src="thumbnails/IMG_6421.jpg" height="240" width="160" alt="IMG_6421"></A></TD>

      </TR>

      <TR>

        <TD align="center"><A href="images/IMG_6424.jpg"><IMG src="thumbnails/IMG_6424.jpg" height="240" width="160" alt="IMG_6424"></A></TD>

        <TD align="center"><A href="images/IMG_6427.jpg"><IMG src="thumbnails/IMG_6427.jpg" height="240" width="160" alt="IMG_6427"></A></TD>

        <TD align="center"><A href="images/IMG_6430.jpg"><IMG src="thumbnails/IMG_6430.jpg" height="240" width="160" alt="IMG_6430"></A></TD>

      </TR>

      <TR>

        <TD align="center"><A href="images/IMG_6433.jpg"><IMG src="thumbnails/IMG_6433.jpg" height="240" width="160" alt="IMG_6433"></A></TD>

        <TD align="center"><A href="images/IMG_6434.jpg"><IMG src="thumbnails/IMG_6434.jpg" height="240" width="160" alt="IMG_6434"></A></TD>

        <TD align="center"><A href="images/IMG_6436.jpg"><IMG src="thumbnails/IMG_6436.jpg" height="240" width="160" alt="IMG_6436"></A></TD>

      </TR>

      <TR>

        <TD align="center"><A href="images/IMG_6437.jpg"><IMG src="thumbnails/IMG_6437.jpg" height="240" width="160" alt="IMG_6437"></A></TD>

        <TD align="center"><A href="images/IMG_6440.jpg"><IMG src="thumbnails/IMG_6440.jpg" height="240" width="160" alt="IMG_6440"></A></TD>

        <TD align="center"><A href="images/IMG_6441.jpg"><IMG src="thumbnails/IMG_6441.jpg" height="240" width="160" alt="IMG_6441"></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

	}

}



