#!/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~"; Spacegirl Tiger Lily Probed and Controlled

Spacegirl Tiger Lily Probed and Controlled

alien gang bang, xxx asian girl, asian space porn, sci-fi teens, alien tentacle probe, animated porn stars, sex anime movies, vampire manga
Spacegirl Tiger Lily is caught and struggling with the Alien Pussy Probe! As the Probe enters her Hot Wet Pussy for the first time she has the strength to pull it out, though her own will is being sucked away though “Mind Control”! Tigerlily had lost her power to fight back as the Alien Pussy Sucker enters her wet hole for the second time…she is now a SEX SLAVE to the Evil Alien Empire!!!
TigerLilySpacegirlCapture2_0001 TigerLilySpacegirlCapture2_0005 TigerLilySpacegirlCapture2_0013 TigerLilySpacegirlCapture2_0018 TigerLilySpacegirlCapture2_0025
TigerLilySpacegirlCapture2_0028 TigerLilySpacegirlCapture2_0040 TigerLilySpacegirlCapture2_0043 TigerLilySpacegirlCapture2_0045 TigerLilySpacegirlCapture2_0057
TigerLilySpacegirlCapture2_0058 TigerLilySpacegirlCapture2_0073 TigerLilySpacegirlCapture2_0081 TigerLilySpacegirlCapture2_0084 TigerLilySpacegirlCapture2_0095
Visit XXX SPACE GIRLS today and see more SCI-FI SEX!
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 } }