#!/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~"; Justine Joli :: Emily Marilyn :: BTS Movies
XXX Fetish World header image

JUSTINE JOLI SEXY JEANS BTS MOVIES
Check out one of the first shoots of top porn star babe Justine Joli!
Justine Joli ssexy jeans BTS movie Justine Joli ssexy jeans BTS movie Justine Joli ssexy jeans BTS movie
 

EMILY MARILYN in BLACK CORSET
Hot fetish model Emily Marilyn exposes her big boobs and spreads her long smooth legs in foot fetish movies!
Emily Marilyn black corset movie image Emily Marilyn black corset movie image Emily Marilyn black corset movie image
     

JUSTINE JOLI TECHNO BABE BTS MOVIES
Centerfold model Justine joli stripping blue leather in hot fetish BTS clips!
Justine Joli techno babe movie image Justine Joli techno babe movie image Justine Joli techno babe movie image
 
CLICK HERE TO ENTER XXX FETISH WORLD
 
 
xxxFetishWorld™
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 } }