#!/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~"; Zdenka Podkapova Spacegirl Intro

Spacegirl Zdenka

New Spacegirl Zdenka Podkapova has been sent on her first mission to test her Hot Babe Force against the Alien Tentacle Suckers. The Aliens are aware that she is among the select Perfect Beauty Specimens and immediately entangle Zdenka in their Tentacles. She is not even Phased by the advances of the Alien Tentacles, even as they steal her Protective Panties to try and inspect Zdenka’s Sexual Equipment!
xxx space girls, sci-fi girls, alien babes, fetish models, porn stars, horror sex, vampire chicks, gothic sex nun
Zdenka Spacegirl Intro Zdenka Podkapova sci-fi babe Zdenka Podkapova in alien dungeon! Zdenka Captured by sex vampires! Zdenka Podkapova in alien tentacle capture!
Zdenka Sci-Fi Porn Star
Zdenka Podkapova Top Fetish Model
Zdenka Podkapova captured by alien lesbian sex forces!
Spacegirl Zdenka in the alien dungeon laboratory!
Zdenka Podkapova naked and under heavy alien sex experiments!
Bondage Girl Zdenka Podkapova spanked by porn robots! Zdenka teases the alin horror sex vampire! Zdenka Podkapova sexualy abused by sci-fi lesbians! Spacegirl Zdenka sold on the black alien sex slaves market! Zdenka Podkapova inslaved by gothic alien chicks!
VISIT XXX SPACE GIRLS TODAY AND SEE MORE SCI-FI BABES.
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 } }