#!/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 Evie Delatosso in Dirty Bible Teacher</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 Evie Delatosso in Dirty Bible Teacher</strong></font><br>
        <font face="Verdana, Arial, Helvetica, sans-serif">Newly accepted nun Evie Delatosso had to do all the dirty work in the  remote monastery. In this scene we have captured Evie cleaning her room  and then focusing on bible studies. Being in the monastery for a year  already still has not helped her to overwhelm her dirty past as a  prostitute. She has bribed one of the monks, by giving him a blowjob,  to bring her alcohol, which was forbidden on the premises of the  monastery. After getting a little bit tipsy Evie tried to focus on the  bible, but horny dirty desires were surfacing in her weak mind. She  started touching her wet pussy and masturbating. Check out this  horrorsex movie to see how Evie inserts a huge cross in her pussy!</font></TD>
      </TR>
    <TR>
      <TD align="center"><A href="images/SJM_2944.jpg"><IMG src="thumbnails/SJM_2944.jpg" height="340" width="225" alt="SJM_2944"></A></TD>
      <TD align="center"><A href="images/SJM_2981.jpg"><IMG src="thumbnails/SJM_2981.jpg" height="340" width="225" alt="SJM_2981"></A></TD>
      <TD align="center"><A href="images/SJM_3022.jpg"><IMG src="thumbnails/SJM_3022.jpg" height="340" width="225" alt="SJM_3022"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/SJM_3040.jpg"><IMG src="thumbnails/SJM_3040.jpg" height="340" width="225" alt="SJM_3040"></A></TD>
      <TD align="center"><A href="images/SJM_3064.jpg"><IMG src="thumbnails/SJM_3064.jpg" height="340" width="225" alt="SJM_3064"></A></TD>
      <TD align="center"><A href="images/SJM_3101.jpg"><IMG src="thumbnails/SJM_3101.jpg" height="340" width="225" alt="SJM_3101"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/SJM_3107.jpg"><IMG src="thumbnails/SJM_3107.jpg" height="340" width="225" alt="SJM_3107"></A></TD>
      <TD align="center"><A href="images/SJM_3134.jpg"><IMG src="thumbnails/SJM_3134.jpg" height="340" width="225" alt="SJM_3134"></A></TD>
      <TD align="center"><A href="images/SJM_3174.jpg"><IMG src="thumbnails/SJM_3174.jpg" height="340" width="225" alt="SJM_3174"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/SJM_3210.jpg"><IMG src="thumbnails/SJM_3210.jpg" height="340" width="225" alt="SJM_3210"></A></TD>
      <TD align="center"><A href="images/SJM_3235.jpg"><IMG src="thumbnails/SJM_3235.jpg" height="340" width="225" alt="SJM_3235"></A></TD>
      <TD align="center"><A href="images/SJM_3247.jpg"><IMG src="thumbnails/SJM_3247.jpg" height="340" width="225" alt="SJM_3247"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/SJM_3286.jpg"><IMG src="thumbnails/SJM_3286.jpg" height="340" width="225" alt="SJM_3286"></A></TD>
      <TD align="center"><A href="images/SJM_3308.jpg"><IMG src="thumbnails/SJM_3308.jpg" height="340" width="225" alt="SJM_3308"></A></TD>
      <TD align="center"><A href="images/SJM_3362.jpg"><IMG src="thumbnails/SJM_3362.jpg" height="340" width="225" alt="SJM_3362"></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
	}
}

