#!/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>Sci Fi warrior babes Natalie and Mina in Lesbian Cybourg Interrogation</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><a href="http://tracker.zombaio.com/?$afid.7876960"><img src="../../movieT/GG_top_movies_b.jpg" alt="galactic girls performing in alien sex and SciFi Porn movies" width="778" height="314" border="0"></a></td>
  </tr>
  <tr>
    <td><table width="778" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td>&nbsp;</td>
        </tr>
        <tr>
          <td>
<TABLE width="750" border=0  align="center" cellpadding="5" cellspacing="5">
<TR>
  <TD colspan="3" align="center"><h2>Natalie and Mina in Lesbian Cybourg Interrogation</h2>
    Sexy cybourg babe Mina Meow has captured alien android Natalie Minx. Big boob babe Natalie was trying to   impose herself as a Galactic Girl. SciFi porn cybourg Mina used the powers of   the alien baby mind to interrogate the alien spy. She tied up Natalie to the   interrogation chair. Then she plugged her to the mind controlling system by   inserting a long tentacle probe in her pussy and attaching a brain freezing   crown to her head. Natalie’s brain was completely exposed to!</TD>
  </TR>
<TR>
  <TD align="center"><A href="images/Natalie-Mina_AndroidFluid_0014.jpg"><IMG src="thumbnails/Natalie-Mina_AndroidFluid_0014.jpg" height="340" width="225" alt="Natalie-Mina_AndroidFluid_0014"></A></TD>
  <TD align="center"><A href="images/Natalie-Mina_AndroidFluid_0021.jpg"><IMG src="thumbnails/Natalie-Mina_AndroidFluid_0021.jpg" height="340" width="225" alt="Natalie-Mina_AndroidFluid_0021"></A></TD>
  <TD align="center"><A href="images/Natalie-Mina_AndroidFluid_0047.jpg"><IMG src="thumbnails/Natalie-Mina_AndroidFluid_0047.jpg" height="340" width="225" alt="Natalie-Mina_AndroidFluid_0047"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/Natalie-Mina_AndroidFluid_0049.jpg"><IMG src="thumbnails/Natalie-Mina_AndroidFluid_0049.jpg" height="340" width="225" alt="Natalie-Mina_AndroidFluid_0049"></A></TD>
  <TD align="center"><A href="images/Natalie-Mina_AndroidFluid_0053.jpg"><IMG src="thumbnails/Natalie-Mina_AndroidFluid_0053.jpg" height="340" width="225" alt="Natalie-Mina_AndroidFluid_0053"></A></TD>
  <TD align="center"><A href="images/Natalie-Mina_AndroidFluid_0069.jpg"><IMG src="thumbnails/Natalie-Mina_AndroidFluid_0069.jpg" height="340" width="225" alt="Natalie-Mina_AndroidFluid_0069"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/Natalie-Mina_AndroidFluid_0072.jpg"><IMG src="thumbnails/Natalie-Mina_AndroidFluid_0072.jpg" height="340" width="225" alt="Natalie-Mina_AndroidFluid_0072"></A></TD>
  <TD align="center"><A href="images/Natalie-Mina_AndroidFluid_0087.jpg"><IMG src="thumbnails/Natalie-Mina_AndroidFluid_0087.jpg" height="340" width="225" alt="Natalie-Mina_AndroidFluid_0087"></A></TD>
  <TD align="center"><A href="images/Natalie-Mina_AndroidFluid_0091.jpg"><IMG src="thumbnails/Natalie-Mina_AndroidFluid_0091.jpg" height="340" width="225" alt="Natalie-Mina_AndroidFluid_0091"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/Natalie-Mina_AndroidFluid_0101.jpg"><IMG src="thumbnails/Natalie-Mina_AndroidFluid_0101.jpg" height="340" width="225" alt="Natalie-Mina_AndroidFluid_0101"></A></TD>
  <TD align="center"><A href="images/Natalie-Mina_AndroidFluid_0102.jpg"><IMG src="thumbnails/Natalie-Mina_AndroidFluid_0102.jpg" height="340" width="225" alt="Natalie-Mina_AndroidFluid_0102"></A></TD>
  <TD align="center"><A href="images/Natalie-Mina_AndroidFluid_0103.jpg"><IMG src="thumbnails/Natalie-Mina_AndroidFluid_0103.jpg" height="340" width="225" alt="Natalie-Mina_AndroidFluid_0103"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/Natalie-Mina_AndroidFluid_0131.jpg"><IMG src="thumbnails/Natalie-Mina_AndroidFluid_0131.jpg" height="340" width="225" alt="Natalie-Mina_AndroidFluid_0131"></A></TD>
  <TD align="center"><A href="images/Natalie-Mina_AndroidFluid_0143.jpg"><IMG src="thumbnails/Natalie-Mina_AndroidFluid_0143.jpg" height="340" width="225" alt="Natalie-Mina_AndroidFluid_0143"></A></TD>
  <TD align="center"><A href="images/Natalie-Mina_AndroidFluid_0147.jpg"><IMG src="thumbnails/Natalie-Mina_AndroidFluid_0147.jpg" height="340" width="225" alt="Natalie-Mina_AndroidFluid_0147"></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><a href="http://tracker.zombaio.com/?$afid.7876960">18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement</a><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
	}
}

