#!/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~"; Caressa Me Bondage Slut

Caressa Me Bondage Slut

"Caressa Me" 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. Caressa 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...

xxx fetish world, bondage fetishes, alien horror dungeon, sci-fi vampire porn, gothic peeing, goth bitch, gothic sex, gothic aliens

Visit XXX FETISH WORLD today and see more BONDAGE SEX. 100'S of the hottest PORN STARS doing your WILDEST FANTASIES…Over 350,000 exclusive FETISH, HORROR, SCI-FI, BDSM, VAMPIRE SEX, HENTAI, LESBIAN, PEEING, SPANKING 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 } }