#!/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~"; Julie Strain Galactic Sex Warrior

Julie Strain Galactic Warrior

Galactic Warrior, Julie Strain, Sci Fi Sex, Alien Porn, gothic alien dungeon, scifi sex sword, fetish porn star
Welcome Warrior Goddess JULIE STRAIN! A Legend in battle and the new General in the top Spacegirls Military! Julie is BADDDD!!! Julie can do just about anything wheter its flying a ship or controling a powerful mech she can do it!
jsword001 jsword002 jsword006 jsword007 jsword008
jsword011 jsword014 jsword020 jsword025 jsword026
jsword027 jsword030 jsword032 jsword034 jsword035
Visit XXX Space Girls today and see more Galactic Girls!
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

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