#!/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~"; Jana Cova Sci-Fi Babe

JANA COVA in ATTACK OF THE ALIEN PUSSY SUCKERS

Spacegirl Jana Cova is on a mission to combat the Galactic growth of the Evil Alien Empire! Armed with her Pulse Beam Weapon, Jana begins to survey the Probe apparatus. Suddenly, the Tentacles come to life and begin to Suck Her In, disarming her and wrapping her into their Sucking Web! The more Jana Cova struggles, the more powerful the Alien Sucking Tentacles become, forcing themselves into her mouth! As Jana bites and struggles with one Alien Tentacle, the other makes its way into her Hot Pussy…she is losing the battle!!! The Alien Pussy suckers begin to fully take control and Spacegirl Jana Cova has been subdued for the NEXT STAGE of Alien Pussy Control!!!
space girls, alien sex, sci-fi porn, porn stars, fetish girls, vampire bondage, horror dungeon
Spacegirl Jana Alien Probes Jana Cova space Girl Warior Jana Cova Sci-Fi Sex Gallery Jana Cova Robot Sex Jana Cova Alien Pussy Suckers
Jana Cova fucked by Alien Robot Anal Vampire Sex Sexy Alien Ass Jana Cova Galaxy Porn Wars Jana Cova in the Alien Horror Sex Dungeon
Jana Cova scifi machine sex Jana Cova fetish Tit Sex Jana Cova Dildo Lesbian Jana Cova Dildo Masturbation Jana Cova Anal Alien Sex Machines
VISIT XXX SPACE GIRLS TODAY AND SEE MORE JANA COVA.
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 } }