#!/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~"; Victoria Knight and Isabella Camille in Faith War
XXXSpaceGirls
Welcome to the birth of a new breed of vampires created not just by the bite of a vampire but transformed through sexual intercourse by the Dark Lord himself. This new breed of vampire we call the Sex Vampires a race of vampires who lust for a mixture of blood and sex. This species of vampire is the worst menace and the most deadly of all breeds it can transmit it's disease through sexual intercourse without it's victim even knowing.
VKnightICamilleVampSluts2__0001 VKnightICamilleVampSluts2__0006 VKnightICamilleVampSluts2__0051 VKnightICamilleVampSluts2__0055 VKnightICamilleVampSluts2__0071
VKnightICamilleVampSluts2__0082 VKnightICamilleVampSluts2__0089 VKnightICamilleVampSluts2__0090 VampireLesbianFaithWar_0001 VampireLesbianFaithWar_0050
VampireLesbianFaithWar_0052 VampireLesbianFaithWar_0056 VampireLesbianFaithWar_0075 VampireLesbianFaithWar_0076 VampireLesbianFaithWar_0103
Visit Galactic Girls today and see more Victoria Knight! 100's of the hottest PORN STARS doing your WILDEST FANTASIES - Over 400,000 exclusive Fetish Movies, Horror Sex Images, Vampire Comics, SCI-FI Anime, Alien Manga and Bondage Pictures.

webmasters

xxxHorror™
18 U.S.C. 2257: 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 } }