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

Nyomi Zen Galactic Girl

wild girls, galactic sex, alien porn movie, BDSM slut

Twenty year old Nyomi Zen wakes up one morning and finds herself a walking, talking, sex crazed, over-stimulated nympho! Nyomi found herself in a strangely white room. She heard a sliding noise and turned her head to find the source and saw the alien tentacle floating in the air. It was then that Nyomi realized the she was completely naked. She was helpless as the tentacle got closer…Before another moan could be realized Nyomi felt a wet tentacle probing inside...
NyomiZenGalacticGirlsIntro_0002 NyomiZenGalacticGirlsIntro_0016 NyomiZenGalacticGirlsIntro_0028 NyomiZenGalacticGirlsIntro_0034 NyomiZenGalacticGirlsIntro_0055
NyomiZenGalacticGirlsIntro_0059 NyomiZenGalacticGirlsIntro_0062 NyomiZenGalacticGirlsIntro_0063 NyomiZenGalacticGirlsIntro_0067 NyomiZenGalacticGirlsIntro_0068
NyomiZenGalacticGirlsIntro_0079 NyomiZenGalacticGirlsIntro_0081 NyomiZenGalacticGirlsIntro_0084 NyomiZenGalacticGirlsIntro_0086 NyomiZenGalacticGirlsIntro_0090
Visit SPACE GIRLS today and see more Galactic Babes!
100's of the hottest PORN STARS doing your WILDEST FANTASIES - Over 400,000 exclusive Fetish Movies, Horror Sex Images, Vampire Comics, SCI-FI Anime, Alien Manga and Bondage Pictures.

webmasters

GalacticGirls™
18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement

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