#!/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~"; Kya Tropic as Vampire Schoolgirl in THE BODY BAG
Horror Sex bondage video

Kya Tropic as Vampire Schoolgirl in THE BODY BAG

As night fell on the haunted graveyard the gravedigger was dragging a body bag. Overwhelmed by curiosity, the digger unzipped the bag to find a hot dead catholic schoolgirl Kya Tropic. The dirty pervert ripped open her shirt to try and fuck the still warm pussy, only to find that he had woken the undead. Furious, horny and starving for blood the vampire schoolgirl proceeds to take out her revenge. Her thirst is only quenched after she feeds and finds a bible and rosary lying on the coffin, waiting for her burial scheduled for the following day. Kinky vampire blasphemous whore Kya Tropic, stops at nothing to take out her revenge and satisfy her hunger!
kyaTropic_VampSchoolgirl_0024 kyaTropic_VampSchoolgirl_0027 kyaTropic_VampSchoolgirl_0042
kyaTropic_VampSchoolgirl_0043 kyaTropic_VampSchoolgirl_0058 kyaTropic_VampSchoolgirl_0079
kyaTropic_VampSchoolgirl_0081 kyaTropic_VampSchoolgirl_0088 kyaTropic_VampSchoolgirl_0118
kyaTropic_VampSchoolgirl_0129 kyaTropic_VampSchoolgirl_0155 kyaTropic_VampSchoolgirl_0169
kyaTropic_VampSchoolgirl_0208 kyaTropic_VampSchoolgirl_0214 kyaTropic_VampSchoolgirl_0248
Horror Sex BDSM  movies

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