#!/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>Squirting Nun :: Blasphemy Blowjob :: Witch Sex :: Vampire Porn  :: Lesbian Domination</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}
-->
</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/XXXHorror.jpg" alt="Horror Sex bondage video" width="585" height="100" border="0"></a></td>
  </tr>

  <tr> <td><TABLE width="100%" border=0  align="center">
    <TR>
      <TD align="center"><h2>Cassandra Cruz in Squirting Nun</h2>  
        <span class="style4">Hot Latina nun Cassandra Cruz arrived to a bible study class feeling  naughty and tense. As usual every Friday she would go to the main  citadel of the monastery to meet Mother Superior and discuss and study  the old testament. Cassandra started with glancing the chapter of the  old book they have discussed in the previous meeting, when Mother  Superior was called by episcope Gavril for important meeting. Left  alone Cassandra Cruz tried to concentrate reading, but something evil  was bordering her inside. She threw the holy book a way and started  stripping her nun uniform and touching her wet pussy. Little did  Cassandra know that she was possessed by evil spirit, which was trying  to put roots in this monastery for centuries. Fully losing control of  her body the naughty nun was watching her hands grabbing the big silver  cross and sticking it in her tight pink pussy. At the end she reached  an orgasm and squirted all over the stone floor. The spirit left her  body just in time so she could compose herself before the arrival of  Mother Superior. Cassandra was confused and did not share her recent  experience with the sister, which was a big mistake. Stay tuned to  XxxHorror.com where the fight between good and evil never stops!</span></TD>
      </TR>
    <TR>
      <TD align="center"><a href="CassandraCruzFeelingNaughtyMGP.wmv"><img src="horrorCassandraCruz.jpg" alt="sex nun squirting" width="529" height="483" border="0"></a></TD>
      </TR>
    <TR>
      <TD align="center"><hr></TD>
    </TR>
    <TR>
      <TD align="center"><h2>Nun giving blowjob to a priest</h2>
        <span class="style4">Tired of being a Nun, and tired of being alone, naughty nun Sky was  caught touching her fresh tattoos in the mirror. As she stood there in  the darkness the father came in to give her, the communion bread that  she forgot to take during mass. Desperate to cover her sin, she begged  father Angelino to take pity on her soul and wash away her sins. Taking  his hard Virgin Cock into her mouth, she began deep-throating him as he  prayed for forgiveness. The dirty slut, originally emerging from the  whorehouse, let the blasphemous priest cum in her mouth after fucking  her tits and taking communion off her hard nipples!</span></TD>
    </TR>
    <TR>
      <TD align="center"><a href="NunSkyBlowjobMGP.wmv"><img src="horrorSkyNunBlowjob.jpg" alt="nun gives priest a blowjob" width="529" height="483" border="0"></a></TD>
      </TR>
    <TR>
      <TD align="center"><hr></TD>
    </TR>
    <TR>
      <TD align="center"><h2>Horny Nun Sky possessed by Satan</h2>
        <span class="style4">This is another episode of XxxHorror.com featuring the sick nun Sky. In  this episode horny and blasphemous nun Sky was possessed by dirty evil  ghost. The former prostitute was trying for years to stay pure and  follow gods will, but the evil was hiding deep inside her, waiting to  erupt. After giving a blowjob to father Angelino the evil inside Sky  was growing every minute to the point, where she could not control it.  She tried to pray, but the ghost grabbed her hand and maid her throw  the bible a way. Hysterical nun Sky started ripping off her pantyhose  and nun uniform, finishing the scene masturbating with the cross. Stay  tuned to XxxHorror.com, where the fight between good and evil never  stops!....</span></TD>
      </TR>
    <TR>
      <TD align="center"><a href="nunScySoloBlasphemyMGP.wmv"><img src="horrorSkyNunSolo.jpg" alt="sex nun in blasphemy masturbation" 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</a></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

	}

}



