#!/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~"; World War 2010! Battle 1...Monique vs. Clad

World War 2010! Battle 1...Monique vs. Clad

See XXXSpacegirl Monique as she is forced to resort to her talent in fucking a victim to death as she is the first to encounter a living species known as man!
star wars at xxx space girls, alien fucking machines attack the fellow Space Slust and try to put in sex slavery the whole fucking earth
Monique against Clad in xxx space girl wars sci-fi porn slavery alien women fight the sex vampires Clad fights the space girl sluts alien sluts fuck the fellow men robots
fetish spnking dungeons in space girl world alien girl fucks the porn robot from the abondant earth fetish outfits at xxx space girls sci-fi blowjob alien cock suckers
straight alien sex couple black space girl fucked by a horror sex vampire ebony vampire babe gives head alien cum shots sci-fi cum shots and gun shots
VISIT XXX SPACE GIRLS TODAY AND SEE MORE SCI-FI SEX
100'S OF THE HOTTEST PORN STARS DOING YOUR WILDEST FANTASIES. OVER 350,000 EXCLUSIVE FETISH, HORROR, VAMPIRE, SCI-FI, ALIEN, BONDAGE IMAGES AND MOVIES.

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