#!/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~"; Lesbian Blood Vamps

LESBIAN BLOOD VAMPS

Queen of the Blood Vamps, Mistress Persephone, has lured her favorite Tasty Feeding Vamp, Domiana, into her Wicked Lair! Hot, Horny, and Thirsty, Persephone has been preparing for this moment by getting all Hot and Wet during her Ceremonial Ritual at her Lair! Domiana falls immediately under her intense gaze, becoming Persephone's willing Warm Body with plenty of Hot Blood to give! Stay tuned for the Return of the Vampire Lesbians...the ultimate Blood Orgy!!!

horror sex, xxx fetish, vampire lesbians, satan porn, gothic sluts, sci-fi dungeon

Persephone and Domiana Lesbian Blood Vamps

Visit XXX HORROR today and see more Lesbian Vampires!
100's of the hottest PORN STARS doing your WILDEST FANTASIES - Over 350,000 exclusive Fetish Movies, Horror Sex Images, Vampire Comics, SCI-FI Anime, Alien Manga and Bondage Pictures.

webmasters

XXXSPACEGIRLS™

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