#!/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~"; Galactic Girl Ariel X

GALACTIC GIRL ARIEL X in THE SEX BATTLE WITH THE EVIL ALIEN CLONE

alien sex clones, SciFi Lesbians, horror porn babes, gothic vampires
Galactic Girl Ariel X is on another mission to infiltrate the Space Lair of the Evil Alien Clone in order to try and combat the Sexual Powers introduced though the Alien Pussy Probes! Armed with an Intergalactic High Density Plasma Weapon, Ariel X seeks out the essence of the Alien’s recent Snatch and Grab, where her Pussy was injected with the Alien Mind Control juice and part of her DNA was extracted and Altered…
GalacticGirlArielXAlien_0002 GalacticGirlArielXAlien_0007 GalacticGirlArielXAlien_0013 GalacticGirlArielXAlien_0030 GalacticGirlArielXAlien_0036
GalacticGirlArielXAlien_0040 GalacticGirlArielXAlien_0052 GalacticGirlArielXAlien_0070 GalacticGirlArielXAlien_0073 GalacticGirlArielXAlien_0077
GalacticGirlArielXAlien_0087 GalacticGirlArielXAlien_0092 GalacticGirlArielXAlien_0099 GalacticGirlArielXAlien_0112 GalacticGirlArielXAlien_0116
Again, Ariel X is placed under the Mind Control of the Evil Alien Clone, though this time she has been injected by ULTRA with an experimental “Counter Agent” which allows her to keep her mind partially focused during the invasive Pussy Probe Attack!!! Ariel is continually fighting to repulse Pussy Probe’s Two Pronged Attack on her Vulnerable Wet Vaginal Entrance, finally breaking the “Mind Grip” and forcing the Evil Alien Clone to STOP THE ATTACK!!!

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