#!/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~"; Masuimi Max Galactic Warrior

Masuimi Max Galactic Warrior

space sex, xxx girl, fetish porn, Masuimi Max, leather, latex, gothic sluts, horror dungeon, SciFi vampire, alien babes
Spacegirl Warrior Masuimi Max begins her Galactic Weapons Training with an Alien Metal Samurai Sword designed to cut through all of the Extraterrestrial entities known by the ULTRA scientists at the Spacegirl Center. Masuimi is also equipped with the latest in Spacegirl Protective Latex which forms a bond with her skin the is nearly impenetrable!
MasuimiMaxSpaceWarrior1_0001 MasuimiMaxSpaceWarrior1_0016 MasuimiMaxSpaceWarrior1_0019 MasuimiMaxSpaceWarrior1_0043 MasuimiMaxSpaceWarrior1_0049
MasuimiMaxSpaceWarrior1_0054 MasuimiMaxSpaceWarrior1_0078 MasuimiMaxSpaceWarrior1_0081 MasuimiMaxSpaceWarrior1_0082 MasuimiMaxSpaceWarrior1_0099
MasuimiMaxSpaceWarrior1_0103 MasuimiMaxSpaceWarrior1_0109 MasuimiMaxSpaceWarrior1_0112 MasuimiMaxSpaceWarrior1_0115 MasuimiMaxSpaceWarrior1_0119
Masuimi Max has been well known to be Turned On by Danger and Weapons, making her the Ultimate Sex Warrior! During her training session she strips off her Protective Latex to display her ability to attract the Evil Aliens with her Hot Naked Flesh! Masuimi knows that as these Alien forces try to Probe her Sex Organs she will wield a Mean Weapon and start her cutting!!! "Bring them on" is her Battle Cry!!!

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