#!/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~"; Kenya - Bondage Bitch

KENYA - BONDAGE BITCH

Before one of our 'party nights' in the dungeon last week, Kenya kept begging her master to let her perform like the good little 'bondage bitch' that she is! Only after making her beg and plead on her knees for hours did he allow her to show the group just how much of nasty little slut she is. Of course, she got more than she bargained for because after her 'performance' 10 of us gang-banged her for all she was worth!

VISIT XXX FETISH WORLD 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

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