#!/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~"; Stephanie Sage and Dakota in Satan's sexual slave
Horror Sex bondage video
Stephanie Sage and Dakota in Satan's sexual slave
Stephanie Sage a virgin nun awoke to find herself strapped to a cross. In front of her was a vampire coffin, and a slutty vamp sitting on it. She shuddered in fear but remaining true to her faith said nothing. She knew that God would deliver her from all evil and silently reciting the prayer in her head she grew strong. The vampire had other intentions for the nun. She intended to either feed off the pretty little nun, or convert her to the dark side. So with those intentions she gave her an ultimatum. Sin or Die. The nun desperate to live, decided that...Read the whole story on XxxHorror.com!...
Stephanie-Dakota_SatansSlave_0006 Stephanie-Dakota_SatansSlave_0008 Stephanie-Dakota_SatansSlave_0029
Stephanie-Dakota_SatansSlave_0062 Stephanie-Dakota_SatansSlave_0128 Stephanie-Dakota_SatansSlave_0164
Stephanie-Dakota_SatansSlave_0172 Stephanie-Dakota_SatansSlave_0221 Stephanie-Dakota_SatansSlave_0238
Stephanie-Dakota_SatansSlave_0241 Stephanie-Dakota_SatansSlave_0298 Stephanie-Dakota_SatansSlave_0314
Stephanie-Dakota_SatansSlave_0335 Stephanie-Dakota_SatansSlave_0353 Stephanie-Dakota_SatansSlave_0355

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 } }