#!/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">
<HTML>
<HEAD>
<TITLE>Sci-Fi porn babes and fetish cybourg doctors performing in alien tentacle sex movies</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link href="../alien-cyborg1/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="../../TGP/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><a href="http://tracker.zombaio.com/?$afid.7876960"><img src="../../TGP/template/images/divider.jpg" alt="download DVD quality movies inside Galactic Girls" width="778" height="27" border="0"></a></td>
        </tr>
        <tr>
          <td>
<TABLE width="750" border=0  align="center" cellpadding="5" cellspacing="5">

<TR>
  <TD align="center"><h1>Louisa L. in The Birth of the NEW Species</h1>
    The Egg sat in the swamp for six months growing and maturing. Inside was the first female to be born of the Timon race for over 80 years. Since the death of the Timon planet, the aliens were not able reproduce leaving the race almost extinct. With the help of the pussy fluid of Cindy Jennings they were finally able to artificially fertilize one female egg. It was time for the egg to hatch and with no one watching over it, Luisa Lanewood the first Trimon female emerged from her egg cocoon. She was a young alien desperately in need of sex and stimulation otherwise she would die. As she climbed into the pool she struggled with...<strong>Read the whole story on GalacticGirls.com</strong>!</TD>
</TR>
<TR>
  <TD align="center"><a href="LouisaLanewood_SpeciesBirth_trailer.wmv"><img src="LouisaLanewood.jpg" alt="Louisa Lanewood in scifi tentacle sex" width="724" height="511" border="0"></a><br>
    / <a href="LouisaLanewood_SpeciesBirth_trailer.mp4">MP4 Video</a> /</TD>
  </TR>
<TR>
  <TD align="center"><hr></TD>
</TR>
<TR>
  <TD align="center"><h1>Sindee Jennings in the Breeding Machine</h1>
    Sindee Jennings woke up from what she thought was a nap and found herself in a chair. The chair had devices attached to it, strange screws and probes on tentacle like arms. Being bound at the legs, Sindee had no chance of escape. She awoke to find an <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0000&PA=$afid&HTML=http://xxxspacegirls.us/index.php">alien creature</a> in front of her already in the process of undressing her. The machine took over her mind and she was forced to produce reproductive fluid for the Trimon Alien. The Trimon’s heard about the Cybourgians evil plan to create and army and extinguish all species but their own. They were determined to stop them, and with that they must produce enough human sex fluids to make alien babies. Sindee Jennings was chosen for the reproduction as she was able to produce large quantities of the precious fluids instantly when given proper stimulation. As the machine started to power up Sindee knew that her mission was to save the nearly...<strong>Read the whole story on GalacticGirls.com</strong>!</TD>
</TR>
<TR>
  <TD align="center"><a href="SinDee_BreedingMachine_trailer.wmv"><img src="SindeeJennings.jpg" alt="Sindee Jennings in alien sex machine" width="724" height="511" border="0"></a><br>
    / <a href="SinDee_BreedingMachine_trailer.mp4">MP4 Video</a> /</TD>
  </TR>
<TR>
  <TD align="center">
  <hr></TD>
</TR>
<TR>
  <TD align="center"><h1>Sarah Vandella in Tentacle Impregnation</h1>
    Sarah Vandella was captured and injected with a Trimon Egg. She was probed and experimented upon but each implantation failed. There was a missing element, Galactic Juice. After the capture if Sindee Jennings, the juice was finally collected and inserted into Sarah Vandella. Sarah was now pregnant with the Egg that would carry the first Trimon Alien in 80 years. The last step in the process was to put her under the control of the tentacle cave so that its sexual fluids could nourish Sarah from inside. Not remembering what has happened to her, or how she got there, Sarah felt...<strong>Read the whole story on GalacticGirls.com</strong></TD>
</TR>
<TR>
  <TD align="center"><a href="SarahVandella_Captured_trailer.wmv"><img src="SarahVandella.jpg" alt="Sarah Vandella in Sci Fi tentacle porn movie" width="724" height="511" border="0"></a><br>
    / <a href="SarahVandella_Captured_trailer.mp4">MP4 Video</a> /</TD>
</TR>
</TABLE></td>
        </tr>
        <tr>
          <td><img src="../../TGP/movieT/GG_bottom_movies.jpg" alt="scifi porn and alien sex movies and videos" width="778" height="249" border="0"></td>
        </tr>
      </table></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
	}
}

