#!/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>Kinky MILF nun giving a fetish blowjob to a 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>Kinky MILF nun giving a fetish blowjob to a priest</strong></font><br>
        <font face="Verdana, Arial, Helvetica, sans-serif">In this blasphemy porn video the Sacrilegious Mother Superior found father   Steven looking at dirty novels. To feel the purity of God the nun tied the   father to a cross dressed in a loin cloth and nothing else. The father submit,   thinking that he would be punished with a whip. Instead the Mother Superior   proceeded to undress and punish the father with sexual degradation.  In this denial scene the father suffers a long hard-on with the mother   threatening no satisfaction. Stay tuned to xxxHorror.com for a more extreme part   2 coming soon...</font></TD>
      </TR>
    <TR>
      <TD align="center"><A href="images/SJM_8962.jpg"><IMG src="thumbnails/SJM_8962.jpg" height="340" width="225" alt="SJM_8962"></A></TD>
      <TD align="center"><A href="images/SJM_8980.jpg"><IMG src="thumbnails/SJM_8980.jpg" height="340" width="225" alt="SJM_8980"></A></TD>
      <TD align="center"><A href="images/SJM_9070.jpg"><IMG src="thumbnails/SJM_9070.jpg" height="340" width="225" alt="SJM_9070"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/SJM_9111.jpg"><IMG src="thumbnails/SJM_9111.jpg" height="340" width="225" alt="SJM_9111"></A></TD>
      <TD align="center"><A href="images/SJM_9131.jpg"><IMG src="thumbnails/SJM_9131.jpg" height="340" width="225" alt="SJM_9131"></A></TD>
      <TD align="center"><A href="images/SJM_9132.jpg"><IMG src="thumbnails/SJM_9132.jpg" height="340" width="225" alt="SJM_9132"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/SJM_9153.jpg"><IMG src="thumbnails/SJM_9153.jpg" height="340" width="225" alt="SJM_9153"></A></TD>
      <TD align="center"><A href="images/SJM_9186.jpg"><IMG src="thumbnails/SJM_9186.jpg" height="340" width="225" alt="SJM_9186"></A></TD>
      <TD align="center"><A href="images/SJM_9189.jpg"><IMG src="thumbnails/SJM_9189.jpg" height="340" width="225" alt="SJM_9189"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/SJM_9226.jpg"><IMG src="thumbnails/SJM_9226.jpg" height="340" width="225" alt="SJM_9226"></A></TD>
      <TD align="center"><A href="images/SJM_9228.jpg"><IMG src="thumbnails/SJM_9228.jpg" height="340" width="225" alt="SJM_9228"></A></TD>
      <TD align="center"><A href="images/SJM_9238.jpg"><IMG src="thumbnails/SJM_9238.jpg" height="340" width="225" alt="SJM_9238"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/SJM_9263.jpg"><IMG src="thumbnails/SJM_9263.jpg" height="340" width="225" alt="SJM_9263"></A></TD>
      <TD align="center"><A href="images/SJM_9270.jpg"><IMG src="thumbnails/SJM_9270.jpg" height="340" width="225" alt="SJM_9270"></A></TD>
      <TD align="center"><A href="images/SJM_9277.jpg"><IMG src="thumbnails/SJM_9277.jpg" height="340" width="225" alt="SJM_9277"></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>
<!-- {RECIPS} -->
<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

	}

}



