#!/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 Obedience Training at Xxx Space Girls

Amber Michaels Obedience Training

Amber was a Bad Girl when she pissed in her Dog Bowl! Her punishment, putting her in her “Training Cage” with the bowl, helps her to learn that the bowl is not for pee. When her Trainer returns, she shows him that she has learned her lesson as she is HUNGRY FOR COCK AND CUM!!!

VISIT XXX FETISH WORLD TODAY AND SEE MORE AMBER MICHAELS
100'S OF THE HOTTEST PORN STARS DOING YOUR WILDEST FANTASIES
OVER 350,000 EXCLUSIVE FETISH, HORROR AND SCIFI IMAGES & 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 } }