#!/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>Sex Nun MILF Misty humiliating a submissive priest</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="../../header/HorrorSexHeadar3.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>Sex Nun MILF Misty humiliating a submissive priest</strong></font><br>
        <font face="Verdana, Arial, Helvetica, sans-serif">In this wild sacrilegious porn movie, MILF Misty plays a righteous mother   superior set on punishing the priest for his love of porn. The punishment   continues, when the Sacrilegious Mother Superior returns to find the father in   the same position still hard and struggling with himself. The nun comes back to   continue her denial, tormenting the poor priest with her nasty blasphemous ways.   The Milf rubs his hard cock with her feet and teases him with her hot nun   pussy, denying satisfaction. Sitting on his stomach, the mother superior   masturbates with a cross...Watch the video to see if   the master finally allows him to cum....Read the whole story on XxxHorror.com!</font></TD>
      </TR>
    <TR>
      <TD align="center"><A href="images/SickNun_TheComing_0003.jpg"><IMG src="thumbnails/SickNun_TheComing_0003.jpg" height="340" width="225" alt="SickNun_TheComing_0003"></A></TD>
      <TD align="center"><A href="images/SickNun_TheComing_0010.jpg"><IMG src="thumbnails/SickNun_TheComing_0010.jpg" height="340" width="225" alt="SickNun_TheComing_0010"></A></TD>
      <TD align="center"><A href="images/SickNun_TheComing_0039.jpg"><IMG src="thumbnails/SickNun_TheComing_0039.jpg" height="340" width="225" alt="SickNun_TheComing_0039"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/SickNun_TheComing_0048.jpg"><IMG src="thumbnails/SickNun_TheComing_0048.jpg" height="340" width="225" alt="SickNun_TheComing_0048"></A></TD>
      <TD align="center"><A href="images/SickNun_TheComing_0056.jpg"><IMG src="thumbnails/SickNun_TheComing_0056.jpg" height="340" width="225" alt="SickNun_TheComing_0056"></A></TD>
      <TD align="center"><A href="images/SickNun_TheComing_0060.jpg"><IMG src="thumbnails/SickNun_TheComing_0060.jpg" height="340" width="225" alt="SickNun_TheComing_0060"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/SickNun_TheComing_0064.jpg"><IMG src="thumbnails/SickNun_TheComing_0064.jpg" height="340" width="225" alt="SickNun_TheComing_0064"></A></TD>
      <TD align="center"><A href="images/SickNun_TheComing_0077.jpg"><IMG src="thumbnails/SickNun_TheComing_0077.jpg" height="340" width="225" alt="SickNun_TheComing_0077"></A></TD>
      <TD align="center"><A href="images/SickNun_TheComing_0081.jpg"><IMG src="thumbnails/SickNun_TheComing_0081.jpg" height="340" width="225" alt="SickNun_TheComing_0081"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/SickNun_TheComing_0104.jpg"><IMG src="thumbnails/SickNun_TheComing_0104.jpg" height="340" width="225" alt="SickNun_TheComing_0104"></A></TD>
      <TD align="center"><A href="images/SickNun_TheComing_0111.jpg"><IMG src="thumbnails/SickNun_TheComing_0111.jpg" height="340" width="225" alt="SickNun_TheComing_0111"></A></TD>
      <TD align="center"><A href="images/SickNun_TheComing_0119.jpg"><IMG src="thumbnails/SickNun_TheComing_0119.jpg" height="340" width="225" alt="SickNun_TheComing_0119"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/SickNun_TheComing_0121.jpg"><IMG src="thumbnails/SickNun_TheComing_0121.jpg" height="340" width="225" alt="SickNun_TheComing_0121"></A></TD>
      <TD align="center"><A href="images/SickNun_TheComing_0214.jpg"><IMG src="thumbnails/SickNun_TheComing_0214.jpg" height="340" width="225" alt="SickNun_TheComing_0214"></A></TD>
      <TD align="center"><A href="images/SickNun_TheComing_0220.jpg"><IMG src="thumbnails/SickNun_TheComing_0220.jpg" height="340" width="225" alt="SickNun_TheComing_0220"></A></TD>
    </TR>
    

    

    
  </TABLE></td>
  </tr>
  <tr>
    <td><a href="http://tracker.zombaio.com/?$afid.7876929"><img src="../../header/HorrorSexFooter3.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
</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

	}

}



