#!/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~"; Sexy vampire maiden Shay Lynn in satanic Rituals
Horror Sex bondage video
Sexy vampire maiden Shay Lynn in satanic Rituals
Sexy babe Shay Lynn was bitten and tied to a cross. She tried to fight the transformation but the blood put in front of her was too great a temptation. As the full Moon rose, she began to feel her sexual nature come alive. Shay found herself thirsting for blood and sex as the transformation took place. Once loose of her chains she indulged her senses drinking the blood that she had so desired rubbing it all over her large fake tits and gorgeous pussy. This vampire babe did not wish to speak blasphemy, but to show God her disgust. She took a beautiful while pearl cross and stuck it deep into her vagina masturbating with the religious object left for her by her maker. Watch the sacrilegious porn movie on xxxhorror.com!
ShayLynn_VampireMaiden_0001 ShayLynn_VampireMaiden_0022 ShayLynn_VampireMaiden_0029
ShayLynn_VampireMaiden_0032 ShayLynn_VampireMaiden_0056 ShayLynn_VampireMaiden_0078
ShayLynn_VampireMaiden_0130 ShayLynn_VampireMaiden_0152 ShayLynn_VampireMaiden_0210
ShayLynn_VampireMaiden_0213 ShayLynn_VampireMaiden_0247 ShayLynn_VampireMaiden_0305
ShayLynn_VampireMaiden_0336 ShayLynn_VampireMaiden_0380 ShayLynn_VampireMaiden_0398

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