#!/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 in HORROR DUNGEON SEX SLAVE

AMBER MICHAELS in HORROR DUNGEON SEX SLAVE

horror sex, sci-fi vampire, xxx alien, fetish robot, gothic dungeon
Amber Michaels is confronted by the Caretaker of the Castle of Horrors following her Hot Fetish Solo session. Amber is both horny and frightened since she was unaware of his presence. This Evil Caretaker has more on his mind than a Smoke Break; her hot Fetish Action in his domain has driven him to a need for more than sucking on a butt!!! Amber is now shown what to do and the Caretaker guides her to his Cock so he can have his smoke and get this Hot Minion to suck him off! Amber gives in to her Need for a Hard Cock and Sucks while he smokes, swallowing his Evil Seed!!
AmberMichaelsHorrorPleasure_0001 AmberMichaelsHorrorPleasure_0004 AmberMichaelsHorrorPleasure_0005 AmberMichaelsHorrorPleasure_0021 AmberMichaelsHorrorPleasure_0029
AmberMichaelsHorrorPleasure_0053 AmberMichaelsHorrorPleasure_0066 AmberMichaelsHorrorPleasure_0070 AmberMichaelsHorrorPleasure_0092 AmberMichaelsHorrorPleasure_0094
AmberMichaelsHorrorPleasure_0105 AmberMichaelsHorrorPleasure_0107 AmberMichaelsHorrorPleasure_0110 AmberMichaelsHorrorPleasure_0117 AmberMichaelsHorrorPleasure_0120
Visit XXX SPACE GIRLS today and see more SEX SLAVES!
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

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