#!/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~"; Serene Dream in Galactic DNA gallery at Xxx Space Girls
hot space girl sex movies
SereneDreamGalacticDNAslut_0001 SereneDreamGalacticDNAslut_0007 SereneDreamGalacticDNAslut_0010 SereneDreamGalacticDNAslut_0014 SereneDreamGalacticDNAslut_0027
SereneDreamGalacticDNAslut_0028 SereneDreamGalacticDNAslut_0033 SereneDreamGalacticDNAslut_0042 SereneDreamGalacticDNAslut_0052 SereneDreamGalacticDNAslut_0055
SereneDreamGalacticDNAslut_0074 SereneDreamGalacticDNAslut_0085 SereneDreamGalacticDNAslut_0090 SereneDreamGalacticDNAslut_0092 SereneDreamGalacticDNAslut_0102
Visit XXX SPACE GIRLS today and see more Galactic 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.
SciFi porn footer

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