#!/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>Ariella Ferrera in Forbidden SciFi Alien Sex</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link href="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="../../../images/join-top.jpg" alt="galactic girls performing in alien sex and SciFi Porn movies" width="778" height="138" 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>Ariella Ferrera in Forbidden SciFi Sex</h2>
    Ariella Fererra was captured for mind control experimentation. She was put into the  chamber with a cybourgian doctor for the initial experimentation. As  she was placed under mind control the perverted doctor had other plans  for her. Half man half machine; the doctor did enjoy pleasures of his  own and took his experimentation to the next level. As he forced her to  extract her own fluids as he forced his penis into her mouth. He was  overcome with desire for the earthling even though he knew that...<strong>Read the whole story on GalacticGirls.com</strong>!</TD>
  </TR>
<TR>
  <TD align="center"><A href="images/Ariella-Devon_ForcedFeeding_0001.jpg"><IMG src="thumbnails/Ariella-Devon_ForcedFeeding_0001.jpg" height="340" width="225" alt="Ariella-Devon_ForcedFeeding_0001"></A></TD>
  <TD align="center"><A href="images/Ariella-Devon_ForcedFeeding_0054.jpg"><IMG src="thumbnails/Ariella-Devon_ForcedFeeding_0054.jpg" height="340" width="225" alt="Ariella-Devon_ForcedFeeding_0054"></A></TD>
  <TD align="center"><A href="images/Ariella-Devon_ForcedFeeding_0056.jpg"><IMG src="thumbnails/Ariella-Devon_ForcedFeeding_0056.jpg" height="340" width="225" alt="Ariella-Devon_ForcedFeeding_0056"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/Ariella-Devon_ForcedFeeding_0060.jpg"><IMG src="thumbnails/Ariella-Devon_ForcedFeeding_0060.jpg" height="340" width="225" alt="Ariella-Devon_ForcedFeeding_0060"></A></TD>
  <TD align="center"><A href="images/Ariella-Devon_ForcedFeeding_0089.jpg"><IMG src="thumbnails/Ariella-Devon_ForcedFeeding_0089.jpg" height="340" width="225" alt="Ariella-Devon_ForcedFeeding_0089"></A></TD>
  <TD align="center"><A href="images/Ariella-Devon_ForcedFeeding_0132.jpg"><IMG src="thumbnails/Ariella-Devon_ForcedFeeding_0132.jpg" height="340" width="225" alt="Ariella-Devon_ForcedFeeding_0132"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/Ariella-Devon_ForcedFeeding_0155.jpg"><IMG src="thumbnails/Ariella-Devon_ForcedFeeding_0155.jpg" height="340" width="225" alt="Ariella-Devon_ForcedFeeding_0155"></A></TD>
  <TD align="center"><A href="images/Ariella-Devon_ForcedFeeding_0157.jpg"><IMG src="thumbnails/Ariella-Devon_ForcedFeeding_0157.jpg" height="340" width="225" alt="Ariella-Devon_ForcedFeeding_0157"></A></TD>
  <TD align="center"><A href="images/Ariella-Devon_ForcedFeeding_0159.jpg"><IMG src="thumbnails/Ariella-Devon_ForcedFeeding_0159.jpg" height="340" width="225" alt="Ariella-Devon_ForcedFeeding_0159"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/Ariella-Devon_ForcedFeeding_0164.jpg"><IMG src="thumbnails/Ariella-Devon_ForcedFeeding_0164.jpg" height="340" width="225" alt="Ariella-Devon_ForcedFeeding_0164"></A></TD>
  <TD align="center"><A href="images/Ariella-Devon_ForcedFeeding_0167.jpg"><IMG src="thumbnails/Ariella-Devon_ForcedFeeding_0167.jpg" height="340" width="225" alt="Ariella-Devon_ForcedFeeding_0167"></A></TD>
  <TD align="center"><A href="images/Ariella-Devon_ForcedFeeding_0169.jpg"><IMG src="thumbnails/Ariella-Devon_ForcedFeeding_0169.jpg" height="340" width="225" alt="Ariella-Devon_ForcedFeeding_0169"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/Ariella-Devon_ForcedFeeding_0178.jpg"><IMG src="thumbnails/Ariella-Devon_ForcedFeeding_0178.jpg" height="340" width="225" alt="Ariella-Devon_ForcedFeeding_0178"></A></TD>
  <TD align="center"><A href="images/Ariella-Devon_ForcedFeeding_0185.jpg"><IMG src="thumbnails/Ariella-Devon_ForcedFeeding_0185.jpg" height="340" width="225" alt="Ariella-Devon_ForcedFeeding_0185"></A></TD>
  <TD align="center"><A href="images/Ariella-Devon_ForcedFeeding_0188.jpg"><IMG src="thumbnails/Ariella-Devon_ForcedFeeding_0188.jpg" height="340" width="225" alt="Ariella-Devon_ForcedFeeding_0188"></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
	}
}

