#!/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~"; Emily Marilyn in Alien Tease

Emily Marilyn in Alien Tease

wild girls, galactic sex, alien porn movie, BDSM slut
GalacticEmilyMarilynAlienTease_0001 GalacticEmilyMarilynAlienTease_0023 GalacticEmilyMarilynAlienTease_0026 GalacticEmilyMarilynAlienTease_0041 GalacticEmilyMarilynAlienTease_0044
GalacticEmilyMarilynAlienTease_0056 GalacticEmilyMarilynAlienTease_0068 GalacticEmilyMarilynAlienTease_0073 GalacticEmilyMarilynAlienTease_0074 GalacticEmilyMarilynAlienTease_0078
GalacticEmilyMarilynAlienTease_0084 GalacticEmilyMarilynAlienTease_0089 GalacticEmilyMarilynAlienTease_0090 GalacticEmilyMarilynAlienTease_0099 GalacticEmilyMarilynAlienTease_0105
Visit XXX SPACE GIRLS today and see more Emily Marilyn!
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

GalacticGirls™
18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement

~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 } }