#!/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~"; Dolly Dreadful - Strip Intro

Dolly Dreadful - Strip Intro

On her first night out on the prowl as a Vampire, “The Queen” Anastasia brought a tasty little tart back to the Castle for a night of debauchery! We welcomed “Dolly Dreadful” into our lair with open arms… and mouths! After a bit of wining and dining, we retired to the den. Anastasia had Dolly in an absolute trance and began having her dress up in various skimpy outfits while playing with her pussy. Every time Dolly looked into Anastasia’s eyes, we could see that Anastasia wanted to devour her! Soon, Dolly Dreadful will earn her right-of-initiation into the Vampire Empire! To be continued…

VISIT XXX HORROR TODAY AND SEE MORE FETISH PORN
100'S OF THE HOTTEST PORN STARS DOING YOUR WILDEST FANTASIES
OVER 350,000 EXCLUSIVE FETISH, HORROR, BONDAGE IMAGES AND MOVIES

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