#!/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>sexy babes drilled in the ass by alien tentacles</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>Veronica Avluv Attacked by Alien Sex Tentacles</h2>
    In this crazy Sci Fi sex film Galactic Girl Veronica Avluv was sent to help   undercover agent Vanessa Naughty. ULTRA hand no idea that Vanessa was captured   by the corrupt Alien baby mind and her encoded SOS transmitter was used by the   Trimon Aliens to trap Veronica. Sexy MILF Veronica has entered an abundant   spaceship following the SOS waves sent by the Trimons. Here she encountered the   kinky alien sex tentacles. The tentacles were brought by the Hebruces to help in   the war. The only way to defeat the galactic Girls was the sexual way. Once wet   and horny they are easy to interrogate and brake mentally. Check out this   tentacle sex movie produce by Mistress Ania and find out if the tentacles were   able to bring the brave Galactic Girl Veronica Avluv to orgasm. Enjoy!</TD>
  </TR>
<TR>
  <TD align="center"><a href="VeronicaAvluvtentacleAttack-MGP.wmv"><img src="SciFiTvVeronicatentacles.jpg" alt="babe captured by alien sex tentacles" width="724" height="511" border="0"></a></TD>
  </TR>
<TR>
  <TD align="center"><hr></TD>
</TR>
<TR>
  <TD align="center"><h1>Resurrection of Deja Daire in Space Sex</h1>
      GalacticGirls.com has brought to live an old movie. This movie was shot in 2006,   but never offered as one complete scene. Enjoy: Spacegirl Deja Daire is now into   Phase II of the sexual ravages of the Alien created Humanoid; Anal Probing! The   Humanoid had Deja Daire under his full control and is PROBING every orifice   during this Galactic Sex encounter! As she is getting Rammed in the Ass by this   Humanoid Cock she is having probes stuffed into her Hot, Wet Pussy and her Mouth   in order to inject the necessary Alien Juices!!! The Alien Humanoid shoots a   final LOAD on her face to control her vision! Luckily Deja has been able to get   on her Protective Eye-wear to deflect the eye load. It is not enough as Deja   Daire's body is fully under ALIEN CONTROL!!!</TD>
</TR>
<TR>
  <TD align="center"><a href="DejaSashaSpaceSex-MGP.wmv"><img src="SciFiTvDejaHardcore.jpg" alt="porn babe Deja probed in all holes by space captain" width="724" height="511" border="0"></a></TD>
  </TR>
<TR>
  <TD align="center">
  <hr></TD>
</TR>
<TR>
  <TD align="center"><h1>Veronica Avluv in Sexual Mind Invasion</h1>
      Hot and sexy Galactic Girl Veronica Avluv was sent to the constellation of   Casiopenis to investigate an abundant spaceship. Veronica landed her capsule on   top of the ship and made her way down the shaft. The brave Galactic Girl was   armed with her sward and other weapons. Little did she know that scifi weapons   would not help her against the hiding alien sex power. Veronica made her way to   the main deck. It was dark as the spaceship was running on emergency power. She   saw a transparent tentacle hanging around the captain's chair. She touched it   with her sward and the tentacle lit itself with a deep yellow flame. Veronica   was hypnotized. She could not move. The tentacle wrapped her quickly and made   its way deep in her hot ass. Veronica’s mind was invaded by the alien. She   experienced multiple orgasms and squirted for the first time in her life?! Check   out this kinky scifi sex movie and find out what happened to the sexy MILF   Veronica. Produced and edited by Mistress Ania. Enjoy!</TD>
</TR>
<TR>
  <TD align="center"><a href="VeronicaAvluvMindInvasion-MGP.wmv"><img src="SciFiTvVeronicaAnal.jpg" alt="hot glamour model Veronica drilled by metalic tentacle in the ass" 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>
2257 Info at:<br>
  http://galacticgirls.com/2257.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
	}
}

