#!/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~"; LEILA SWAN in SPACE EMPRESS AND THE ALIEN PREDATOR

LEILA SWAN in SPACE EMPRESS AND THE ALIEN PREDATOR

space sex, xxx girls, alien porn, sci-fi vampire, fetish dungeon, horror nun
Spacegirl Leila Swan is on a mission to negotiate with the Evil Aliens as a Space Empress. Upon her arrival to the Alien Planet of Cassiopenis, she is immediately brought into the Holding and Probing Laboratory to await her meeting. Instantly, she begins to be restrained by the cyber tentacles and forced into a submissive posture on the "Probing Chair"!
LeilaSwanAlienPredator_0001 LeilaSwanAlienPredator_0007 LeilaSwanAlienPredator_0020 LeilaSwanAlienPredator_0037 LeilaSwanAlienPredator_0041
LeilaSwanAlienPredator_0046 LeilaSwanAlienPredator_0049 LeilaSwanAlienPredator_0052 LeilaSwanAlienPredator_0059 LeilaSwanAlienPredator_0065
LeilaSwanAlienPredator_0070 LeilaSwanAlienPredator_0073 LeilaSwanAlienPredator_0095 LeilaSwanAlienPredator_0097 LeilaSwanAlienPredator_0109
As Leila Swan struggles to escape the captive tentacles, they suddenly release as the Alien Predator enters...Tricked into believing this Predator is here to save her, Leila Swan is both startled and relieved. The Alien Predator his "Powers" to "Mind Control" Leila into a state of Sexual Arousal, allowing him to Plant His Alien Seed in her Swelling Pussy!!! Has the Evil Alien Clone begun his process to create an army of Alien Offspring!!!

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