#!/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 in Alien Capture

Masuimi Max in Alien Capture

fetish girls, xxx alien, space porn, horror sex, gothic vampire
Spacegirl Masuimi Max is in the second phase of her training; getting familiar with the ULTRA Pulse Ray! Masuimi loves weapons and gets a CHARGE bringing the Pulse Ray" close to her HOT PUSSY! Now "Fully Loaded" and "Ready For Action", Masuimi is, again, disarmed by the ULTRA captured Alien Tentacles and is forced to use her "Feminine Wiles" and "Sexual Charisma" to get out of this new phase of the training!
MasuimiMaxSpaceWarrior2_0001 MasuimiMaxSpaceWarrior2_0007 MasuimiMaxSpaceWarrior2_0014 MasuimiMaxSpaceWarrior2_0044 MasuimiMaxSpaceWarrior2_0052
MasuimiMaxSpaceWarrior2_0055 MasuimiMaxSpaceWarrior2_0062 MasuimiMaxSpaceWarrior2_0066 MasuimiMaxSpaceWarrior2_0078 MasuimiMaxSpaceWarrior2_0083
MasuimiMaxSpaceWarrior2_0085 MasuimiMaxSpaceWarrior2_0087 MasuimiMaxSpaceWarrior2_0089 MasuimiMaxSpaceWarrior2_0097 MasuimiMaxSpaceWarrior2_0100
Visit XXX Space Girls today and see more SciFi Sex Models!
100's of the hottest PORN STARS doing your WILDEST FANTASIES - Over 400,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 } }