#!/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~"; Sinn Sage as the Evil Vampire Mistress
Horror Sex bondage video

Sinn Sage as the Evil Vampire Mistress

As night falls on the haunted graveyard, Father James is doing his final rounds before laying to rest... Sinn Sage, an undead vampire, is lurking searching for fresh virgin meat... Starving for blood and flesh, Sinn throws herself at the terrified monk. He prayed to the lord above only to have his prayers laughed at as Sinn began to beat the monk and stomp on his limp body. Aroused by his helplessness, she proceeded to shout blasphemy and force the monk to denounce his faith. The poor father was forced to watch in agony as the vampire whore screamed in pleasure shoving his cross in her wet pussy and fucking pages of the holy book...all before taking his life in her nightly feeding...
SinnSage_EvilVampire_0009 SinnSage_EvilVampire_0028 SinnSage_EvilVampire_0044 SinnSage_EvilVampire_0059 SinnSage_EvilVampire_0118
SinnSage_EvilVampire_0135 SinnSage_EvilVampire_0141 SinnSage_EvilVampire_0149 SinnSage_EvilVampire_0157 SinnSage_EvilVampire_0183
SinnSage_EvilVampire_0199 SinnSage_EvilVampire_0230 SinnSage_EvilVampire_0236 SinnSage_EvilVampire_0239 SinnSage_EvilVampire_0266

CLICK HERE TO BROWSE 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 } }