#!/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~"; Spacegirl Mika Tan in SEXUAL ENCOUNTERS of THE GALACTIC KIND

SPACEGIRL MIKA TAN in SEXUAL ENCOUNTERS OF THE GALACTIC KIND

xxx alien, space sex, sci-fi girls, goth vampires, horror sluts
Spacegirl Mika Tan has been transported to the ALIEN LAIR of the INTERSTELLAR SEX ALIEN, XARCON!!! As Mika begins to realize she is not in her “Earthly Environment” she is immediately confronted with the Multiple Alien Cock Wielding XARCON!!! Mika Tan is now the SEX SLAVE to an ALIEN CREATURE that begins to ready her for “OUT OF THIS WORLD” penetration with its HUGE CREATURE MEMBERS!
MikaTanAlienFucking_0003 MikaTanAlienFucking_0006 MikaTanAlienFucking_0010 MikaTanAlienFucking_0015 MikaTanAlienFucking_0017
MikaTanAlienFucking_0023 MikaTanAlienFucking_0031 MikaTanAlienFucking_0035 MikaTanAlienFucking_0043 MikaTanAlienFucking_0051
MikaTanAlienFucking_0055 MikaTanAlienFucking_0068 MikaTanAlienFucking_0074 MikaTanAlienFucking_0076 MikaTanAlienFucking_0083
The first “Creature Cock” is a single mouthed GIANT that immediately begins to work its way into Mika’s, now gaping, PUSSY followed by the first in several ALIEN CUM BATHS!!! The second CREATURE COCK is a massive “DOUBLE HEADED” SNATCH AND ASS EATER that shoots UNREAL AMOUNTS of ALIEN JUICE all over Mika’s ASS, SNATCH, and BODY!!!

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