#!/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 DEJA DAIRE in Sci-Fi Alien Slut

Spacegirl DEJA DAIRE in Sci-Fi Alien Slut

Spacegirl Deja Daire is a Wild Horny Space Slut that is sent on an ULTRA Mission to the Alien Abduction Lab in order to use her Secret Weapon to wreak havoc on the Alien Sexual Feeding Machines! Deja's main objective is to be captured and Sexually Stimulated by the Alien Probes so she can trick the Evil Aliens into believing she is a Docile Captive that can be utilized for a Pussy Sucking Drone!!! Spacegirl Deja Daire puts up a phony battle, acting as if she is struggling to keep the probes from "Stripping and Penetrating" her and allows herself to be subdued for the Main Pussy Probe, while the Evil Alien watches! Once Deja has fully tricked the Alien into believing she is "Fully Sexually Controlled" she will unleash her "Hidden Pussy Weapon" which stimulates her Pussy into "Multiple Ejaculations" that contain a Secret ULTRA Formula that will begin to burn the Alien Machine!!!
DejaDaireSpacegirlSlut_0001 DejaDaireSpacegirlSlut_0011 DejaDaireSpacegirlSlut_0019 DejaDaireSpacegirlSlut_0021 DejaDaireSpacegirlSlut_0038
DejaDaireSpacegirlSlut_0048 DejaDaireSpacegirlSlut_0062 DejaDaireSpacegirlSlut_0064 DejaDaireSpacegirlSlut_0076 DejaDaireSpacegirlSlut_0077
DejaDaireSpacegirlSlut_0085 DejaDaireSpacegirlSlut_0095 DejaDaireSpacegirlSlut_0098 DejaDaireSpacegirlSlut_0099 DejaDaireSpacegirlSlut_0100
sci-fi alien slut

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