#!/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~"; Darenzia and Kendra James Hot Latex Bitches
hot space girl sex movies
fetish slut Darenzia in black and red latex fetish slut Darenzia in black and red latex fetish slut Darenzia in black and red latex
fetish slut Darenzia in black and red latex fetish slut Darenzia in black and red latex fetish slut Darenzia in black and red latex
fetish slut Darenzia in black and red latex fetish slut Darenzia in black and red latex Kendra James stripping hot lingerie and smoking
Kendra James stripping hot lingerie and smoking Kendra James stripping hot lingerie and smoking Kendra James stripping hot lingerie and smoking
 
Visit GALACTIC GIRLS today and see more LATEX BABES!
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.
 
XxxSpaceGirls™
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 } }