#!/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~"; Aria Giovanni Galactic Girl

Aria Giovanni Galactic Girl

wild girls, galactic sex, alien porn movie, BDSM slut
AriaGiovanni_GalacticGirl_0001 AriaGiovanni_GalacticGirl_0005 AriaGiovanni_GalacticGirl_0007 AriaGiovanni_GalacticGirl_0019 AriaGiovanni_GalacticGirl_0023
AriaGiovanni_GalacticGirl_0027 AriaGiovanni_GalacticGirl_0037 AriaGiovanni_GalacticGirl_0039 AriaGiovanni_GalacticGirl_0046 AriaGiovanni_GalacticGirl_0054
AriaGiovanni_GalacticGirl_0059 AriaGiovanni_GalacticGirl_0062 AriaGiovanni_GalacticGirl_0076 AriaGiovanni_GalacticGirl_0083 AriaGiovanni_GalacticGirl_0085
Visit Space Girls today and see more Aria Giovanni!
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 at: http://xxxspacegirls.us/18-statement/18-statement.html

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