#!/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~"; Amber Michaels and Anastasia Pierce in Anal Space Gypsies

Amber Michaels and Anastasia Pierce in Anal Space Gypsies

space girls, xxx aliens, vampire probes, anal gothic movies, sci-fi bondage, sex robots, fetish cyborg
Spacegirls Amber Michaels and Anastasia Pierce travel the Galaxy in search of Hot Alien Anal Probes! Beaming into the Uranus Galaxy their Pussies are Dripping with the Ass Probes they have encountered!!! This Hot Sci Fi Action ensues between these Sexual Space Cadets!!!
AmberAnastasiaAnalSpaceGypsies_0001 AmberAnastasiaAnalSpaceGypsies_0006 AmberAnastasiaAnalSpaceGypsies_0016 AmberAnastasiaAnalSpaceGypsies_0018 AmberAnastasiaAnalSpaceGypsies_0022
AmberAnastasiaAnalSpaceGypsies_0028 AmberAnastasiaAnalSpaceGypsies_0031 AmberAnastasiaAnalSpaceGypsies_0033 AmberAnastasiaAnalSpaceGypsies_0041 AmberAnastasiaAnalSpaceGypsies_0045
AmberAnastasiaAnalSpaceGypsies_0057 AmberAnastasiaAnalSpaceGypsies_0059 AmberAnastasiaAnalSpaceGypsies_0067 AmberAnastasiaAnalSpaceGypsies_0073 AmberAnastasiaAnalSpaceGypsies_0075
Visit XXX SPACE GIRLS today and see more Sci-Fi Lesbian Sex!
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 } }