#!/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>Bree Olson :: Nyomi Zen :: Evie Delatossa :: Sex Nun :: Satan Whore</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link href="../horror-vamp1/horror.css" rel="stylesheet" type="text/css">
</head>

<body>

<table width="804" border="1" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="800" valign="top"><a href="http://tracker.zombaio.com/?$afid.7876929"><img src="../../TGP/header/HorrorPorn.jpg" alt="Horror Sex bondage video" width="800" height="216" border="0"></a></td>
  </tr>

  <tr> <td><TABLE width="100%" border=0  align="center">
    <TR>
      <TD align="center"><h1>Bree Olsen as Vampire Sex Nun</h1>  
        Check out this Xxx Horror Interview with hot vampire babe Bree Olson. The Interview was taken right after a horror-sex shoot, where former fetish nun Bree dominates an innocent priest. This is another exclusive horror-sex movie featuring big boob porn star Bree Olsen reading the bible and masturbating right after humiliating father Angelino! Join my   <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0000&PA=$afid&HTML=http://adultfantasypark.com/forum/index.php">FANTASY FORUM</a> and let me know   what you think!</TD>
      </TR>
    <TR>
      <TD align="center"><a href="BreeOlsonVampireConfessions-flv-1.wmv"><img src="BreeOlsen.jpg" alt="Bree Olson in nasty vampire sex nun image" width="790" height="554" border="0"></a><br>
/ <a href="BreeOlsonVampireConfessions-flv-1.mp4" class="MP4">MP4 VIDEO</a> /</TD>
      </TR>
    <TR>
      <TD align="center"><hr></TD>
    </TR>
    <TR>
      <TD align="center"><h1>Nyomi Zen as Satan's Whore</h1>
        Nyomi Zen, roamed the streets trading sex for drugs in the BRONX. She was a   bitch to say the least, often conning her clients, stealing from them and now   and then would commit the occasional murder. Satan took an interest in the   pretty slut and made her his minion. After that Nyomi was filled with hate, she   searched the streets looking for new pray and made it her mission to do all that   was unholy. Her favorite toy was the Bible, used for spitting on, destroying,   and beating her enemies to death with. One night a usual client, father Jim,   walked up to the crazed Nyomi, unaware that Satan had taken an interest in   her...<strong>read the whole story on xxxHorror.com</strong>!</TD>
      </TR>
    <TR>
      <TD align="center"><a href="NyomiZen_SatanWhore_horror1.wmv"><img src="NyomiZen.jpg" alt="asian babe Nyomi Zen turning into satans whore image" width="790" height="554" border="0"></a><br>
        / <a href="NyomiZen_SatanWhore_horror1.mp4" class="MP4">MP4 VIDEO</a> /</TD>
      </TR>
    <TR>
      <TD align="center"><hr></TD>
    </TR>
    <TR>
      <TD align="center"><h1>Evie Delatosso in The Punishment</h1>
        The father spoke of Adam and Eve at Sunday Mass, preaching of sin and unholy   affairs. Lust and Adultery seemed to be the focus of his topic, putting   particular significance on masturbation and Sex. He encouraged each follower to   confess their sins and accept GOD as their only savior. Evie Dellatosso, a nun   was strangely intrigued by his words, wondering in secret, what the touch of   Adam would have felt like on her virgin pussy...<strong>read the whole story on   xxxHorror.com</strong>!</TD>
      </TR>
    <TR>
      <TD align="center"><a href="EivieDelatosso_Punishment_trailer.wmv"><img src="EvieDelatosso.jpg" alt="Evie Delatosso in sex nun masturbation image" width="790" height="554" border="0"></a><br>
        / <a href="EivieDelatosso_Punishment_trailer.mp4" class="MP4">MP4 VIDEO</a> /</TD>
      </TR>
    

  </TABLE></td>
  </tr>
</table>
<br>
<div align="center"><span class="XxxHorror"><a href="http://tracker.zombaio.com/?$afid.7876929">CLICK HERE TO BROWSE XXX HORROR</a></span></div>



<div align="center">
  <p><font face="Verdana, Arial, Helvetica, sans-serif"><strong><font size="2">xxxHorror&#8482;<br>
    <font face="Verdana, Arial, Helvetica, sans-serif"><strong>18 U.S.C. 2257
    Record-Keeping Requirements Compliance Statement</strong></font> at:<br>
    http://xxxspacegirls.us/18-statement/18-statement.html </font></strong></font></p>
</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
	}
}

