#!/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 lesbian sex and alien female capture</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><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"></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"><h2><strong>Exotic Dancer Shay Lynn in Alien Abduction</strong></h2>
    Sexy exotic dancer Shay Lynn went early to bed on October 21/2209. She plaid   with her wet pussy and some toys, including a big pink dildo. After achieving a   couple of orgasms Shay started falling a sleep…little did she know that the   Trimon Aliens were spying on her for a long time. Descendent from Galactic Girl   warrior Sylvia Saint Shay was a good DNA material for saving the Trimon race   from extinction…Huge beam of light entered Shay’s bedroom. Shay Lynn woke up to   find herself in a real nightmare. The big boob babe was teleported directly to   the SCi-Fi DNA laboratory on planet Pussea. Stay tuned to part two, where Shay   was tricked by undercover fetish lesbian agent of the Trimon’s and had an   encounter with the mind controlling tentacles!</TD>
  </TR>
<TR>
  <TD align="center"><a href="ShayLynn_AlienDreams1_trailer.wmv"><img src="SciFiTvShayLynn.jpg" alt="big boob scifi babe abducted by aliens" width="724" height="511" border="0"></a></TD>
  </TR>
<TR>
  <TD align="center"><hr></TD>
</TR>
<TR>
  <TD align="center"><h2><strong>Exotic Dancer Shay Lynn in Alien Abduction 2</strong></h2>
      After waking up in the alien SciFi laboratory Shay Lynn was very scared. Soon   the door opened and the undercover Trimon agent Kymberly Jane entered the room.   Big boob fetish babe Kymberly was spying on Shay for months. Shay remembered her   right a way and was shocked. Little did she know that Kymberly had crush on her   in addition to intelligence work she was subject of. Kymberly was dreaming about   this moment. She wanted to kill 2 rabbits with one bullet – satisfy her kinky   lesbian desires and extract the precious DNA out of Shay’s tight pink pussy.   Poor Shay, she did not know what BDSM surprises has Kymberly prepared for   her…Stay tuned to GalacticGirls.com. Part 3 of this lesbian saga is coming   soon!</TD>
</TR>
<TR>
  <TD align="center"><a href="Kymberly_Shay_AlienDreams2_trailer.wmv"><img src="SciFiTvShayKymberly.jpg" alt="lesbian SciFi sex interogation" width="724" height="511" border="0"></a></TD>
  </TR>
<TR>
  <TD align="center">
  <hr></TD>
</TR>
<TR>
  <TD align="center"><h1><strong>Alien Capture and Containment Part1</strong></h1>
The Institute for Alien Research (IAR) is a busy secret facility focusing on   capturing Alien subjects for the purpose of research and DNA enhancement of the   human race. The institute was founded in 1947, when a lot of UFO activities were   reported. Since then IAR has secretly recruited the best scientists of the world   trying to prevent the Alien invaders from using the Planet Earth as military   base. In this episode we are showing a live footage of capturing a female Alien   from the instinct race of Trimon. The Trimons were trying for eons to save   themselves from instinction by mating with earth males. Check out this horror sex Sci Fi movie featuring   alien porn between a Trimon female and one of the IAR best scientists, who was   forced to conduct a sexual act. Stay tuned to GalacticGirls.com as part3 is   coming soon!</TD>
</TR>
<TR>
  <TD align="center"><a href="GalacticIARseries_Trailer.wmv"><img src="SciFiTvAlien99.jpg" alt="doctor captures alien female" width="724" height="511" border="0"></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;<br>
 18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement at:<br>
 http://xxxspacegirls.us/18-statement/18-statement.html
</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
	}
}

