#!/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>Anal Nun :: Blasphemy Lesbians :: Bible Studies :: Vampire Blowjob  :: Interracial Lesbian</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link href="../horror-vamp1/horror.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style4 {font-size: 14px}
hr {
	color: #CC0000;
}
-->
</style>
</head>

<body>
<table width="589" border="1" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="585" valign="top"><a href="http://tracker.zombaio.com/?$afid.7876929"><img src="../../TGP/header/xxxvampiresex.jpg" alt="Horror Sex bondage video" width="700" height="100" border="0"></a></td>
  </tr>

  <tr> <td><TABLE width="100%" border=0  align="center">
    <TR>
      <TD align="center"><h2>Brandy and Eve in Sex With a Vampire</h2>  
        Sexy big boob nun Brandi Aniston was walking in the evening around the  remote monastery, thinking about the bad porn dream she had the night  before. Little did she know that horny black vampire was living in the  nearby Carpathian Mountains. When she approached the graveyard she  sensed a draft passing by and then she was bitten on the neck. The  innocent nun passed out. When Brandi woke up she found herself chained  to a wooden cross. In front of her was laying a huge black coffin. The  nun was scared. After a wile the coffin opened and the strong black  lesbian vamp Eve Mayfair came out. Eve sensed the scared nun soul and  decided to torture her even more by stripping Brandi, toying her with a  huge cross and expose her to a horny lesbian sex action. Check out this  lesbian vampire nun movie, where Brandi was converted to a sultry  vampire lesbian nun. Eve needed a companion for a long time and she  found it in nun Brandi. Stay tuned to part to, where the horny vampire  lesbian nuns will hunt for innocent priests and involve them in kinky  fetish orgies, before bite them. This is another exclusive fetish  production by Mistress Ania.</TD>
      </TR>
    <TR>
      <TD align="center"><a href="sex_with_a_vampire_eve_brandy.wmv"><img src="playerSexWithAvampire.jpg" alt="interracial lesbian vamps humiliating a priest" width="529" height="483" border="0"></a></TD>
      </TR>
    <TR>
      <TD align="center"><hr></TD>
    </TR>
    <TR>
      <TD align="center"><h2>Tanner Mayes in Dirty Confessions</h2>
        <span class="style4">Tanner Mayes and Erin Taylor starring in two kinky nun sex episodes. In  the first episode innocent skinny nun Erin gets seduced by the horny  lesbian nun Tanner. Bad nun Tanner tricked the small boob nun Erin into  her room and asked her to pray together. After a while Tanner started  asking very confusing sexual questions. Then the bad nun started  touching Erin’s perky boobs. Shocked by the sexual lust nun Erin let  tanner do whatever she wanted. The movie also includes the confessions  of the bad sex nuns inserted in between the lesbian sex scenes. Stay  tuned to part two, where the top nun Mother Superior catches the horny  lesbian nuns in action! This is another exclusive horror sex episode  produced by our own Mistress Ania. Enjoy!</span></TD>
    </TR>
    <TR>
      <TD align="center"><a href="Tanner_Erin_Dirtyconfessions.wmv"><img src="playerDirtyConfessions1.jpg" alt="lesbian teen nuns kissing and licking" width="529" height="483" border="0"></a></TD>
      </TR>
    <TR>
      <TD align="center"><hr></TD>
    </TR>
    <TR>
      <TD align="center"><h2>Tanner Mayes in Dirty Confessions</h2>
        <span class="style4">Horny lesbian Nuns Erin and Tanner were kissing and touching each  other, when Mother Superior entered the modest room. The hot young nuns  were scared and terrified, by the sin they have committed. At first  Mother Superior was shocked, but after a couple of seconds she felt her  pussy wet. She commanded the sinful nuns tanner and Erin to continue  the lesbian sex act. At first the girls did not feel comfortable to  continue, but the desire for lesbian sex prevailed and they started  licking each others pussy and asses. The nun MILF spread on the corner  of the bed and started masturbating watching the sexual sin committed  in front of her. Check out this exclusive lesbian sex orgy, involving  three hot and sexy nuns. This is another kinky fetish movie produced by  Mistress Ania! Enjoy!</span></TD>
      </TR>
    <TR>
      <TD align="center"><a href="Cassandra_Tanner_Erin_MotherSuperiorConfesses.wmv"><img src="playerDirtyConfessions2.jpg" alt="teen babe Tanner mayes in lesbian nun sex action" width="529" height="483" border="0"></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 ENTER XXX HORROR</a></span></div>

<br>
<br>


<div align="center">
  xxxHorror&#8482;<br>
  18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement at:<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
	}
}

