#!/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>Skinny Latina Serena Silva drilled by the Sci-Fi doctor</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="../../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="750" border=0  align="center" cellpadding="5" cellspacing="5">
<TR>
  <TD colspan="3" align="center"><h2>Skinny Latina Serena Silva drilled by the Sci-Fi doctor</h2>
    <strong>Sexy Latina girl Serena Silva was captured by the evil alien baby mind  in the galactic transporter. The Alien Mind was able to trap the  Galactic Girl during a teleportation to the dark planet. The DNA price  of this Sci-Fi sex slave was enormous as she was a rare breed between a fully grown galactic  girl Crissy Moran and commander Kubr from the extinct race of Kuman.  This young galactic Girl was sold to the Cybourg Doctor from planet  Pussea, who wanted to extract the precious DNA and sell it to the  Trimon alien race, who was fighting to survive extinction. The evil  doctor put serene on the DNA extraction sex machine and started the  procedure. Check out this Sci-Fi Porn movie and find out how kinky this  fetish doctor was!...Stay tuned to GalacticGirls.com</strong>!</TD>
  </TR>
<TR>
  <TD align="center"><A href="images/SerenaSilva_Essence_0003.jpg"><IMG src="thumbnails/SerenaSilva_Essence_0003.jpg" height="340" width="225" alt="SerenaSilva_Essence_0003"></A></TD>
  <TD align="center"><A href="images/SerenaSilva_Essence_0019.jpg"><IMG src="thumbnails/SerenaSilva_Essence_0019.jpg" height="340" width="225" alt="SerenaSilva_Essence_0019"></A></TD>
  <TD align="center"><A href="images/SerenaSilva_Essence_0023.jpg"><IMG src="thumbnails/SerenaSilva_Essence_0023.jpg" height="340" width="225" alt="SerenaSilva_Essence_0023"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/SerenaSilva_Essence_0041.jpg"><IMG src="thumbnails/SerenaSilva_Essence_0041.jpg" height="340" width="225" alt="SerenaSilva_Essence_0041"></A></TD>
  <TD align="center"><A href="images/SerenaSilva_Essence_0064.jpg"><IMG src="thumbnails/SerenaSilva_Essence_0064.jpg" height="340" width="225" alt="SerenaSilva_Essence_0064"></A></TD>
  <TD align="center"><A href="images/SerenaSilva_Essence_0084.jpg"><IMG src="thumbnails/SerenaSilva_Essence_0084.jpg" height="340" width="225" alt="SerenaSilva_Essence_0084"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/SerenaSilva_Essence_0107.jpg"><IMG src="thumbnails/SerenaSilva_Essence_0107.jpg" height="340" width="225" alt="SerenaSilva_Essence_0107"></A></TD>
  <TD align="center"><A href="images/SerenaSilva_Essence_0117.jpg"><IMG src="thumbnails/SerenaSilva_Essence_0117.jpg" height="340" width="225" alt="SerenaSilva_Essence_0117"></A></TD>
  <TD align="center"><A href="images/SerenaSilva_Essence_0138.jpg"><IMG src="thumbnails/SerenaSilva_Essence_0138.jpg" height="340" width="225" alt="SerenaSilva_Essence_0138"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/SerenaSilva_Essence_0150.jpg"><IMG src="thumbnails/SerenaSilva_Essence_0150.jpg" height="340" width="225" alt="SerenaSilva_Essence_0150"></A></TD>
  <TD align="center"><A href="images/SerenaSilva_Essence_0157.jpg"><IMG src="thumbnails/SerenaSilva_Essence_0157.jpg" height="340" width="225" alt="SerenaSilva_Essence_0157"></A></TD>
  <TD align="center"><A href="images/SerenaSilva_Essence_0248.jpg"><IMG src="thumbnails/SerenaSilva_Essence_0248.jpg" height="340" width="225" alt="SerenaSilva_Essence_0248"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/SerenaSilva_Essence_0260.jpg"><IMG src="thumbnails/SerenaSilva_Essence_0260.jpg" height="340" width="225" alt="SerenaSilva_Essence_0260"></A></TD>
  <TD align="center"><A href="images/SerenaSilva_Essence_0378.jpg"><IMG src="thumbnails/SerenaSilva_Essence_0378.jpg" height="340" width="225" alt="SerenaSilva_Essence_0378"></A></TD>
  <TD align="center"><A href="images/SerenaSilva_Essence_0385.jpg"><IMG src="thumbnails/SerenaSilva_Essence_0385.jpg" height="340" width="225" alt="SerenaSilva_Essence_0385"></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;<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
	}
}

