#!/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>Natalie Minx and Mina Meow in the Two Lesbo Holy Marys</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>

<body topmargin="0" text="#FFFFFF" bgcolor="#000000" link="#FF0000" vlink="#CC0000" alink="#FFFF00">

<table width="704" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#CC0000">
  <tr>
    <td width="700" align="center" valign="top"><a href="http://tracker.zombaio.com/?$afid.7876929"><img src="../../TemplateM/t2/Headar.jpg" alt="Horror Sex bondage video" width="700" height="300" border="0"></a></td>
  </tr>

  <tr> <td><TABLE width="695" border=0  align="center" cellpadding=1 cellspacing=1>
    <TR>
      <TD width="675" colspan="3" align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="4"><strong>Natalie Minx and Mina Meow in the Two Lesbo Marys</strong></font><br>
        <font face="Verdana, Arial, Helvetica, sans-serif"><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0000&PA=$afid&HTML=http://adultfantasypark.com/forum/index.php/topic,200.0.html">The Holy Mary</a> now corrupted and craving sin, has called to Mary Magdalene to attempt  to convert her back to the dark side. In this sacrilegious porn movie,  the two Mary’s discuss the crazed sex life that Magdalena had and her  burning desire to experience that passion again. Mina Meow and Natalie  Minx portray and erotic and sexy sluts in this blasphemous  xxxHorror.com video...<strong>Watch the sacrilegious porn movie on xxxhorror.com!</strong></font></TD>
      </TR>
    <TR>
      <TD align="center"><A href="images/Natalie-Mina_TwoMarys_0001.jpg"><IMG src="thumbnails/Natalie-Mina_TwoMarys_0001.jpg" height="340" width="225" alt="Natalie-Mina_TwoMarys_0001"></A></TD>
      <TD align="center"><A href="images/Natalie-Mina_TwoMarys_0004.jpg"><IMG src="thumbnails/Natalie-Mina_TwoMarys_0004.jpg" height="340" width="225" alt="Natalie-Mina_TwoMarys_0004"></A></TD>
      <TD align="center"><A href="images/Natalie-Mina_TwoMarys_0008.jpg"><IMG src="thumbnails/Natalie-Mina_TwoMarys_0008.jpg" height="340" width="225" alt="Natalie-Mina_TwoMarys_0008"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/Natalie-Mina_TwoMarys_0055.jpg"><IMG src="thumbnails/Natalie-Mina_TwoMarys_0055.jpg" height="340" width="225" alt="Natalie-Mina_TwoMarys_0055"></A></TD>
      <TD align="center"><A href="images/Natalie-Mina_TwoMarys_0067.jpg"><IMG src="thumbnails/Natalie-Mina_TwoMarys_0067.jpg" height="340" width="225" alt="Natalie-Mina_TwoMarys_0067"></A></TD>
      <TD align="center"><A href="images/Natalie-Mina_TwoMarys_0093.jpg"><IMG src="thumbnails/Natalie-Mina_TwoMarys_0093.jpg" height="340" width="225" alt="Natalie-Mina_TwoMarys_0093"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/Natalie-Mina_TwoMarys_0141.jpg"><IMG src="thumbnails/Natalie-Mina_TwoMarys_0141.jpg" height="340" width="225" alt="Natalie-Mina_TwoMarys_0141"></A></TD>
      <TD align="center"><A href="images/Natalie-Mina_TwoMarys_0174.jpg"><IMG src="thumbnails/Natalie-Mina_TwoMarys_0174.jpg" height="340" width="225" alt="Natalie-Mina_TwoMarys_0174"></A></TD>
      <TD align="center"><A href="images/Natalie-Mina_TwoMarys_0221.jpg"><IMG src="thumbnails/Natalie-Mina_TwoMarys_0221.jpg" height="340" width="225" alt="Natalie-Mina_TwoMarys_0221"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/Natalie-Mina_TwoMarys_0366.jpg"><IMG src="thumbnails/Natalie-Mina_TwoMarys_0366.jpg" height="340" width="225" alt="Natalie-Mina_TwoMarys_0366"></A></TD>
      <TD align="center"><A href="images/Natalie-Mina_TwoMarys_0383.jpg"><IMG src="thumbnails/Natalie-Mina_TwoMarys_0383.jpg" height="340" width="225" alt="Natalie-Mina_TwoMarys_0383"></A></TD>
      <TD align="center"><A href="images/Natalie-Mina_TwoMarys_0410.jpg"><IMG src="thumbnails/Natalie-Mina_TwoMarys_0410.jpg" height="340" width="225" alt="Natalie-Mina_TwoMarys_0410"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/Natalie-Mina_TwoMarys_0416.jpg"><IMG src="thumbnails/Natalie-Mina_TwoMarys_0416.jpg" height="340" width="225" alt="Natalie-Mina_TwoMarys_0416"></A></TD>
      <TD align="center"><A href="images/Natalie-Mina_TwoMarys_0444.jpg"><IMG src="thumbnails/Natalie-Mina_TwoMarys_0444.jpg" height="340" width="225" alt="Natalie-Mina_TwoMarys_0444"></A></TD>
      <TD align="center"><A href="images/Natalie-Mina_TwoMarys_0447.jpg"><IMG src="thumbnails/Natalie-Mina_TwoMarys_0447.jpg" height="340" width="225" alt="Natalie-Mina_TwoMarys_0447"></A></TD>
    </TR>
    
  </TABLE></td>
  </tr>
  <tr>
    <td><a href="http://tracker.zombaio.com/?$afid.7876929"><img src="../../TemplateM/t2/Footer_d.jpg" alt="horny nuns in horror sex blasphemy acts" width="700" height="300" border="0"></a></td>
  </tr>
</table>
<br>
<br>

<div align="center">
<font face="Verdana, Arial, Helvetica, sans-serif"><strong><font size="2">xxxHorror&#8482;<br>
        18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement at:</strong></font><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

	}

}



