#!/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~"; Space Slut Gauge at Xxx Space Girls

GAUGE - SPACE SLUT

Space Slut Gauge gets beamed in from a hardcore shoot where she just took a giant load. She is under a spell and will return for an Alien examination...these captures are just the beginning of the Alien's search for the sexual power of the intergalactic babes.

VISIT XXX SPACE GIRLS TODAY AND SEE MORE SPACE SLUTS
100'S OF THE HOTTEST PORN STARS DOING YOUR WILDEST FANTASIES
OVER 350,000 EXCLUSIVE FETISH, HORROR AND SCIFI IMAGES & MOVIES

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