#!/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 in Naked Struggle

Zdenka Podkapova Spacegirl in Naked Struggle

space sex, fetish girls, xxx horror, vampire, SciFi, gothic, bondage, centerfolds, porn stars
Spacegirl Zdenka Podkapova realizing she is now been Stripped Naked by the Alien Tentacles uses her Hot Babe Force and “Ice” posing to thwart the potential Pussy Invaders. The Aliens becoming mesmerized by this Perfect Female Beauty Specimen allowing Zdenka to slowly and carefully escape their grasp! Finally, still un-phased, this Hot Spacegirl uses her Beauty and Power to overcome the Tentacle Tangle, standing victorious in all her Naked Glory!!!
SpacegirlZdenkaNakedStruggle_0001 SpacegirlZdenkaNakedStruggle_0004 SpacegirlZdenkaNakedStruggle_0024 SpacegirlZdenkaNakedStruggle_0036 SpacegirlZdenkaNakedStruggle_0045
SpacegirlZdenkaNakedStruggle_0053 SpacegirlZdenkaNakedStruggle_0054 SpacegirlZdenkaNakedStruggle_0061 SpacegirlZdenkaNakedStruggle_0062 SpacegirlZdenkaNakedStruggle_0063
SpacegirlZdenkaNakedStruggle_0085 SpacegirlZdenkaNakedStruggle_0093 SpacegirlZdenkaNakedStruggle_0096 SpacegirlZdenkaNakedStruggle_0101 SpacegirlZdenkaNakedStruggle_0105
Visit XXX Space Girls today and see more SciFi Girls!
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 } }