#!/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~"; Generator error Please input Your affiliate ID Try again. ~EOT~ exit; } sub gencode{ print "Content-Type: text/html\n\n"; print <<"~EOT~"; Louisa Lanewood in Holy Mary meets Satan
Horror Sex bondage video
Louisa Lanewood in Holy Mary meets Satan
Compliments of member requests: The mysterious nun was calling Mary for many days in despair. She prayed and prayed waiting for the holy to materialize to help her in her hour of darkness. Mary heard the call and materialized behind the praying nun. The nun was overcome with joy, and complained of all of the wrong doing in the world. But just as Mary began to comfort her, the nun revealed a most disturbing news. She was in fact, the incarnation of Satan, somebody Mary had never met. Scared and confused she vowed to face this demon. But Satan was smart, she knew which buttons to press to get under the holy one’s skin. She provoked her, taunted her and teased her with her wicked manipulative ways, leaving Mary more in doubt than she has ever...Read the whole story on XxxHorror.com!
LouisaLanewood_VirginMary_0006 LouisaLanewood_VirginMary_0008 LouisaLanewood_VirginMary_0055
LouisaLanewood_VirginMary_0077 LouisaLanewood_VirginMary_0126 LouisaLanewood_VirginMary_0143
LouisaLanewood_VirginMary_0164 LouisaLanewood_VirginMary_0200 LouisaLanewood_VirginMary_0216
LouisaLanewood_VirginMary_0283 LouisaLanewood_VirginMary_0309 LouisaLanewood_VirginMary_0319
LouisaLanewood_VirginMary_0425 LouisaLanewood_VirginMary_0429 LouisaLanewood_VirginMary_0448

CLICK HERE TO ENTER XXX HORROR


xxxHorror™
18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement at:
http://xxxspacegirls.us/18-statement/18-statement.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 } }