#!/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~"; Evie Delatosso in Vampire Lust

Evie Delatosso in Vampire Lust

fetish lingerie, lesbian girls, porn stars, hot lingerie, panties, leather, latex, centerfold babes
The former queen of the Horror Castle Evie Delatosso has been locked in the dungeon of a small monastery in Moldova. She was punished by the vampire elite for inappropriate sexual behavior conducted with her victims. She was unable to overpower the monastery keepers and had to satisfy her sexual desires herself. Fortunately for her she found a cross hanging inside the cell and used it as a dildo for masturbation purposes. Check out this horror movie exposing the dark sexual pleasures of the undead! Stay tuned for the exclusive INTERVIEW with this hot lesbian vampire slut coming up next on XxxHorror.com!
EvieDelatosso_VampireLust_0001 EvieDelatosso_VampireLust_0004 EvieDelatosso_VampireLust_0047 EvieDelatosso_VampireLust_0058 EvieDelatosso_VampireLust_0092
EvieDelatosso_VampireLust_0097 EvieDelatosso_VampireLust_0126 EvieDelatosso_VampireLust_0142 EvieDelatosso_VampireLust_0148 EvieDelatosso_VampireLust_0175
EvieDelatosso_VampireLust_0178 EvieDelatosso_VampireLust_0180 EvieDelatosso_VampireLust_0190 EvieDelatosso_VampireLust_0202 EvieDelatosso_VampireLust_0205

CLICK HERE TO BROWSE XXX HORROR

xxxHorror™
18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement
:
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 } }