#!/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~"; Amber Michaels Horror Mistress

AMBER MICHAELS HORROR MISTRESS

Amber Michaels captures her slave at knifepoint, keeping him wary of her true intentions to Tease and Please! As she runs the blade down him, Amber notices that her Control Techniques are eliciting the response she hoped...Amber loves to Suck a Hard Cock! To continue her Strict Control, Amber pulls the shirt over his head and begins to show what her Talented Mouth can to for her favorite; A Hard Cock! She has had her Main Meal so now Amber wants a Full Course Cum Dessert...She always gets what she wants!!!

horror sex, vampire porn, bondage girls, fetish stars, gothic sluts

VISIT XXX HORROR TODAY AND SEE MORE FETISH SEX.
100'S OF THE HOTTEST PORN STARS DOING YOUR WILDEST FANTASIES. OVER 350,000 EXCLUSIVE FETISH, HORROR, VAMPIRE, SCI-FI, ALIEN, 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 } }