#!/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~"; Crissy M Galaxy Babe at Xxx Space Girls

Crissy M "Galaxy Babe"

Always up for a new adventure, Galaxy babe Crissy M recently accepted a special-ops recruiting assignment. Her mission? To visit a nearby alien fuck-world known as Bangalot and enslave as many new hot recruits as possible! Knowing this sex-machine, she’ll probably take over the whole fucking planet! Watch out Bangalot! One thing’s for sure… with an ass like Crissy’s, there’s no way this mission will fail! Now go attack baby! We’re counting on you!

VISIT XXX SPACE GIRLS TODAY AND SEE MORE GALAXY SEX
100'S OF THE HOTTEST PORN STARS DOING YOUR WILDEST FANTASIES
OVER 350,000 EXCLUSIVE FETISH, HORROR, HENTAI IMAGES AND 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 } }