#!/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=xdw.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">
<HTML>
<HEAD>
<TITLE>Hot big boob girl Kymberly Jane in Hentai Tentacle Sex</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link href="../../template/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="778" border="1" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><table width="778" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><a href="http://tracker.zombaio.com/?$afid.7876960"><img src="../../../images/join-top.jpg" alt="galactic girls performing in alien sex and SciFi Porn movies" width="778" height="138" border="0"></a></td>
        </tr>
        <tr>
          <td>
<TABLE width="750" border=0  align="center" cellpadding="5" cellspacing="5">
<TR>
  <TD colspan="3" align="center"><h2>Hot big boob girl Kymberly Jane in Hentai Tentacle Sex</h2>
   The nasty Trimon Alien race have captured a voluble spy – Galactic Girl  Kymberly Jane. Kymberly was sent to planet Pussea to gather information  regarding the stage of the DNA sex experiments conducted by the  renegade alien baby Mind. The alien baby Mind wanted a revenge. IT was  helping the <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0000&PA=$afid&HTML=http://xxxhorror.com/index.php">evil</a> Trimon  race to regenerate themselves by breeding with fresh Sci-Fi Girls.  Kymberly was captured and put in the Alien Swamp, where the evaporating  mind control steam in combination with the alien porn tentacles were  supposed to make her feel relaxed and horny for the following  interspecies breeding procedure. <strong>Stay tuned to GalacticGirls.com</strong>!</TD>
  </TR>
<TR>
  <TD align="center"><A href="images/KymberlyJane_Control_0001.jpg"><IMG src="thumbnails/KymberlyJane_Control_0001.jpg" height="340" width="225" alt="KymberlyJane_Control_0001"></A></TD>
  <TD align="center"><A href="images/KymberlyJane_Control_0012.jpg"><IMG src="thumbnails/KymberlyJane_Control_0012.jpg" height="340" width="225" alt="KymberlyJane_Control_0012"></A></TD>
  <TD align="center"><A href="images/KymberlyJane_Control_0029.jpg"><IMG src="thumbnails/KymberlyJane_Control_0029.jpg" height="340" width="225" alt="KymberlyJane_Control_0029"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/KymberlyJane_Control_0033.jpg"><IMG src="thumbnails/KymberlyJane_Control_0033.jpg" height="340" width="225" alt="KymberlyJane_Control_0033"></A></TD>
  <TD align="center"><A href="images/KymberlyJane_Control_0045.jpg"><IMG src="thumbnails/KymberlyJane_Control_0045.jpg" height="340" width="225" alt="KymberlyJane_Control_0045"></A></TD>
  <TD align="center"><A href="images/KymberlyJane_Control_0057.jpg"><IMG src="thumbnails/KymberlyJane_Control_0057.jpg" height="340" width="225" alt="KymberlyJane_Control_0057"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/KymberlyJane_Control_0069.jpg"><IMG src="thumbnails/KymberlyJane_Control_0069.jpg" height="340" width="225" alt="KymberlyJane_Control_0069"></A></TD>
  <TD align="center"><A href="images/KymberlyJane_Control_0079.jpg"><IMG src="thumbnails/KymberlyJane_Control_0079.jpg" height="340" width="225" alt="KymberlyJane_Control_0079"></A></TD>
  <TD align="center"><A href="images/KymberlyJane_Control_0093.jpg"><IMG src="thumbnails/KymberlyJane_Control_0093.jpg" height="340" width="225" alt="KymberlyJane_Control_0093"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/KymberlyJane_Control_0100.jpg"><IMG src="thumbnails/KymberlyJane_Control_0100.jpg" height="340" width="225" alt="KymberlyJane_Control_0100"></A></TD>
  <TD align="center"><A href="images/KymberlyJane_Control_0105.jpg"><IMG src="thumbnails/KymberlyJane_Control_0105.jpg" height="340" width="225" alt="KymberlyJane_Control_0105"></A></TD>
  <TD align="center"><A href="images/KymberlyJane_Control_0152.jpg"><IMG src="thumbnails/KymberlyJane_Control_0152.jpg" height="340" width="225" alt="KymberlyJane_Control_0152"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/KymberlyJane_Control_0157.jpg"><IMG src="thumbnails/KymberlyJane_Control_0157.jpg" height="340" width="225" alt="KymberlyJane_Control_0157"></A></TD>
  <TD align="center"><A href="images/KymberlyJane_Control_0177.jpg"><IMG src="thumbnails/KymberlyJane_Control_0177.jpg" height="340" width="225" alt="KymberlyJane_Control_0177"></A></TD>
  <TD align="center"><A href="images/KymberlyJane_Control_0198.jpg"><IMG src="thumbnails/KymberlyJane_Control_0198.jpg" height="340" width="225" alt="KymberlyJane_Control_0198"></A></TD>
</TR>
</TABLE></td>
        </tr>
    </table></td>
  </tr>
  <tr>
    <td><img src="../../../images/index2-bottom.jpg" alt="scifi porn and alien sex movies and videos" width="778" height="249" border="0"></td>
  </tr>
</table>
<br>
<div align="center"><a href="http://tracker.zombaio.com/?$afid.7876960"><font size="6">CLICK HERE TO ENTER GALACTIC GIRLS</font></a></div>
<br>
<br>
<div align="center">GalacticGirls&#8482;<strong><br>
  </strong>18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement at:<br>
  http://xxxspacegirls.us/18-statement/18-statement.html<br>
</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
	}
}

