#!/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~"; Michelle Maylene Galactic Beauty

Michelle Maylene Galactic Beauty

wild girls, galactic sex, alien porn movie, BDSM slut
Top porn starbabe Michelle Maylene trys to enter the world of Galactic Girls. She has been recruted because of her innocent teen looking body, which will help her easily tease the evil alien invadors to a long prepared trap...
MichelleMayleneGalacticBeauty1_0001 MichelleMayleneGalacticBeauty1_0005 MichelleMayleneGalacticBeauty1_0017 MichelleMayleneGalacticBeauty1_0077 MichelleMayleneGalacticBeauty1_0096
MichelleMayleneGalacticBeauty1_0126 MichelleMayleneGalacticBeauty1_0157 MichelleMayleneGalacticBeauty2_0003 MichelleMayleneGalacticBeauty2_0007 MichelleMayleneGalacticBeauty2_0013
MichelleMayleneGalacticBeauty2_0055 MichelleMayleneGalacticBeauty2_0060 MichelleMayleneGalacticBeauty2_0069 MichelleMayleneGalacticBeauty2_0079 MichelleMayleneGalacticBeauty2_0095

CLICK HERE TO ENTER GALACTIC GIRLS

GalacticGirls™
18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement 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 } }