#!/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~"; JUSTINE SANDS and KIRA EGGERS in SPACE LESBOS Part 1

JUSTINE SANDS and KIRA EGGERS in SPACE LESBOS Part 1

xxx girls, space sex, sci-fi fetish, alien robots, vampire porn, horror dungeon
Justine Sands and Kira Eggers beam in from the Lesbos Galaxy and land on Planet Spacegirls for a little Alien Slut Action! Spacegirl Justine seems to like to dominate this Snatch Action and immediately begins to force Spacegirl Kira into pleasing her large ripe melons! This is some tricky Galactic Lesbos action, though, as Kira Eggers could be laying some Sweet Pussy Bait for Justine!!! Wait and see who gains the “Upper Hand” in this Alien Pussy Play…
JustineKiraSpaceLesbos1_0001 JustineKiraSpaceLesbos1_0007 JustineKiraSpaceLesbos1_0027 JustineKiraSpaceLesbos1_0031 JustineKiraSpaceLesbos1_0045
JustineKiraSpaceLesbos1_0050 JustineKiraSpaceLesbos1_0063 JustineKiraSpaceLesbos1_0074 JustineKiraSpaceLesbos1_0083 JustineKiraSpaceLesbos1_0101
JustineKiraSpaceLesbos2_0012 JustineKiraSpaceLesbos2_0021 JustineKiraSpaceLesbos2_0036 JustineKiraSpaceLesbos2_0041 JustineKiraSpaceLesbos2_0075
Visit XXX SPACE GIRLS today and see more Sci-Fi LESBIANS!
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 } }