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

MIDORI at Xxx Space Girls

Welcome Space Girl...Midori! With her mastery of weapons Midori is the most highly sophisticated Space Girl in the use of any and all new weapons technology!

space girl warriors, alien porn, anal sci-fi sex, space vampires, allien abduction, alien bondage

XXX Spacegirls pushes the envelope for high-end costume fantasy erotica with a cinematic vision. See exclusive out-of-this-world photo shoots featuring your favorite fetish model superstars and the most famous adult video stars performing today! Julie Strain, Dita Von Teese, Sylvia Saint, Aria, Nikki Nova, Jezabelle Bond, Brittany Andrews, Sharon Wild, Jesse Cappeli, Swan, Victoria Zdrok, and many other celebrity beauties exposed to invaders from outter space, dangerous fucking machines, alien monsters, galactic sex training, and more, all while looking sexy and picture perfect!

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