#!/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~"; LAURA LACE and JESICA STAR in WANTED DEAD OR ALIVE

LAURA LACE & JESICA STAR IN WANTED DEAD OR ALIVE

Wanted Jescia Star! Jesica is an Outlander who lives by her own rules! Wanted in several cities for bank robbery and murder! Will XXXSpacecop Laura get her girl?

galaxy fetish

LAURA LACE and JESICA STAR in WANTED DEAD OR ALIVE sci-fi porn alien sex hentai horror vampire lesbians
fetish lesbians bondage dildo space dungeon xxx babes adult world media
biarre acts porn stars feature girls female domination leather chicks
VISIT XXX SPACE GIRLS TODAY AND SEE MORE SCI-FI PORN.
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 } }