#!/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~"; Raquel Devine - Sex Slave

Raquel Devine - Sex Slave

Raquel Devine is certainly an interesting addition to the Xxx Fetish World. You never know where these sluts come from. Could be the porn world, could be the mainstream business world. Raquel came to one of our parties a few weeks ago and just watched the action. She looked really hot, but unfortunately, she was shy and didn’t show us any of her skills.
Later, one of our Slut Servants went over and talked to her a little and invited her over for a “private party” but she declined. Sure enough, a few weeks later she called us and said she’d like to take some pictures and did we know anyone who could help her...

raquel devine sex slave fetish porn fetish sex alien slaves
sci-fi horror vampire fetish gothic sluts bondage leather spanking babes
porn stars peeing girls dildo lesbian hentai babes ass licking
VISIT XXX FETISH WORLD TODAY AND SEE MORE SEX SLAVES.
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.

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