#!/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 and Anastasia in Galactic Lesbo Capture

Galactic Lesbo Capture

xxx girls, space sex, alien porn, fetish babes, vampire sluts
Amber Michaels has “Beamed In” from the Lesbo Galaxy Planet Cockius Envious in order to Ravage her “Space Slave” Anastasia Pierce! Armed with her Interstellar Cock Probe strapped over her Gaping Wet Pussy Galactic Lesbo Amber Michaels begins to force her Space Slave Anastasia Pierce to suck and ready her for PUSSY PENETRATION!!! Space Slave Anastasia is beginning to get HOT as Galactic Lesbo Amber begins to penetrate her “Wet and Waiting” HOT PUSSY!!! Amber Michaels Fucks Anastasia Pierce into submission and readies her for her trip back to COCKIUS ENVIOUS!!!
AAGalacticLesbos_0001 AAGalacticLesbos_0006 AAGalacticLesbos_0016 AAGalacticLesbos_0020 AAGalacticLesbos_0029
AAGalacticLesbos_0043 AAGalacticLesbos_0044 AAGalacticLesbos_0055 AAGalacticLesbos_0058 AAGalacticLesbos_0059
AAGalacticLesbos_0069 AAGalacticLesbos_0072 AAGalacticLesbos_0076 AAGalacticLesbos_0077 AAGalacticLesbos_0100
Visit XXX Space Girls today and see more Dildo 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 } }