#!/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>sexy tight ass nuns in anal porn action with 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="../../TGP/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" align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="4"><strong>Tight ass Lesbian nuns in anal orgy sex</strong></font><br>
        <font face="Verdana, Arial, Helvetica, sans-serif">The Unholy Trinity religious sect was a secret society believing in  sexual relationship between the sect members and the Lord. The sect was  founded in Medieval times and because of its outrages believes had to  move from Europe to South America. The sect believes that they are  closer to the Lord by inserting crosses in their ass and pussy and  having sexual orgies, achieving a group orgasm. All the priests of the  sect were women and only the leader was a man?! In this trilogy we have  filmed the first communion of newly added nun-priest (Smokie Flame) to  the sect, who had to serve wine to the leader during bedtime. She was  seduced by the Cardinal and experienced lesbian nun-priest. After  probing her with the cross and making her horny and wet, the threesome  moved to the church quarters and the Cardinal gave both nuns their  first sex communion. Check out this anal sex orgy, where Jeremy Coneway  stretched both nun’s tight and sweet asses, ending with nice gagging  cumshot in their mouths. Produced by Mistress Ania! Enjoy!</font></TD>
      </TR>
    <TR>
      <TD align="center"><a href="JeremySmokieLylaUnholyTrinity-MPG.wmv"><img src="horrorPlayerUnholyTrinity.jpg" alt="group anal sex in church" width="529" height="483" border="0"></a></TD>
    </TR>
    <TR>
      <TD align="center"><hr size="1"></TD>
    </TR>
    <TR>
      <TD align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="4"><strong>Slim Gothic Babe get her ass licked by a priest</strong></font><br>
          <font face="Verdana, Arial, Helvetica, sans-serif">Hot and sexy gothic babe Lyla Storm has been banished from the church  for blasphemy. She was caught by Mother Superior praying to Satan and  burning the bible. Lyla left the church angry promising a revenge. She  started believing in the Dark Lord and became an obsessed gothic girl.  After gaining a lot of confidence in her dark powers she started  planning her revenge. Gothic slut Lyla went to a remote town in the  Alps, where she found her perfect victim a sexy virgin priest. The  gothic babe trapped the priest in the church one Sunday, when everybody  was watching the soccer finals and the church was empty. She showed up  naked asking for help. The innocent priest did not know her dark plan  and tried to help, but it was too late for her. Check out this fetish  femDom, face-sitting and handjob humiliation hardcore scene, featuring  anal probing and facial cum-shot, production of Mistress Ania. Visit my  forum and let me know what you think. Enjoy!</font></TD>
    </TR>
    <TR>
      <TD align="center"><a href="LylaStormGothicLesson1-flv-1.wmv"><img src="horrorPlayerGothicLessons.jpg" alt="gothic babe probed by priest in the ass" width="529" height="483" border="0"></a></TD>
    </TR>
    <TR>
      <TD align="center"><hr size="1"></TD>
    </TR>
    <TR>
      <TD align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="4"><strong>Gothic Babe Lyla Storm in Wild Live Sex Show</strong></font><br>
          <font face="Verdana, Arial, Helvetica, sans-serif">This kinky live interview was recorded two weeks ago right before our last shoot. Gothic slut Lyla and the corrupted priest Jeremy were asked by our members to perform wild Satanic and blasphemous sex rituals. The live horror sex show was broadcast during the Super Bowl, so we have recorded it for the members who could not watch it. The live interview was hosted by Mistress Ania. Enjoy! Hit me on the forum and let me know what you think!</font></TD>
    </TR>
    <TR>
      <TD align="center"><a href="LylaStormJeremyConwayLiveChat-flv-1.wmv"><img src="horrorPlayerLiveChat.jpg" alt="live horror sex show" width="529" height="483" border="0"></a></TD>
    </TR>
  </TABLE></td>
  </tr>
  <tr>
    <td><a href="http://tracker.zombaio.com/?$afid.7876929"><img src="../../TGP/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://xxxhorror.com/2257.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
	}
}

