#!/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~"; Jaqueline Summers in Earthgirl Abduction

Jaqueline Summers in Earthgirl Abduction

This College Co-Ed, Jaqueline Summers, is retuning from a Campus Party when she is "Snatched" by the Evil Aliens and brought to a "Probe Lab"! Still dazed from a wild night of Party Action, Jaqueline is not quite sure what is happening and thinks it may be some kind of kinky prank...It's not! As the Tentacles force off her clothing, her Hot, Wet Pussy is now exposed for the "Sucking Probe"!!! Jaqueline is very "turned on", though she does not realize that this "Probe" is sucking all of her Sexual Energy!!! She finally passes out and will awaken not knowing if this was "Real" or a "Dream"...
alien abduction, space girls, alien sex, sci-fi porn
JSEarthgirlAbduction_0007 JSEarthgirlAbduction_0014 JSEarthgirlAbduction_0028 JSEarthgirlAbduction_0029 JSEarthgirlAbduction_0035
JSEarthgirlAbduction_0042
JSEarthgirlAbduction_0051
alien sex abduction
JSEarthgirlAbduction_0068
JSEarthgirlAbduction_0079
JSEarthgirlAbduction_0081 JSEarthgirlAbduction_0098 JSEarthgirlAbduction_0103 JSEarthgirlAbduction_0108 JSEarthgirlAbduction_0110
Visit XXX SPACE GIRLS today and see more Alien Abductions!
100's of the hottest PORN STARS doing your WILDEST FANTASIES - Over 350,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 } }