#!/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~"; GIANNA MILANO in SPACEGIRL RECRUIT GALACTIC TRAINING

GIANNA MILANO in SPACEGIRL RECRUIT GALACTIC TRAINING

space girls, xxx alien, sci-fi porn, horror sex, fetish dungeon, vampire comics
The Spacegirls’ ULTRA organization recruited the new “Hot Babe”, Gianna Milano, as she just entered the Sexual Galaxy! Her first series of Training Exercises is kept to light, non-firing weapons in order to discern her overall Sexual Warrior Characteristics. During this first session the ULTRA team introduced a low dose of “Mind Control” causing her to capitulate and preparing Gianna Milano for PHASE TWO: Nasty Alien Sexual Battle!!!
GiannaMilanoSpacegirlTraning_0001 GiannaMilanoSpacegirlTraning_0005 GiannaMilanoSpacegirlTraning_0022 GiannaMilanoSpacegirlTraning_0052 GiannaMilanoSpacegirlTraning_0055
GiannaMilanoSpacegirlTraning_0068 GiannaMilanoSpacegirlTraning_0070 GiannaMilanoSpacegirlTraning_0071 GiannaMilanoSpacegirlTraning_0095 GiannaMilanoSpacegirlTraning_0106
GiannaMilanoSpacegirlTraning_0125 GiannaMilanoSpacegirlTraning_0127 GiannaMilanoSpacegirlTraning_0135 GiannaMilanoSpacegirlTraning_0146 GiannaMilanoSpacegirlTraning_0150
Visit XXX SPACE GIRLS today and see more SCI-FI GIRLS!
100's of the hottest PORN STARS doing your WILDEST FANTASIES - Over 350,000 exclusive Fetish Movies, Horror Sex Images, Vampire Comics, SCI-FI Anime, Alien Manga and Bondage Pictures.

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