#!/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 Bathing Beauty

Justine Joli Bathing Beauty

centerfold sex models and porn stars image
Hot porn babe Justine Joli washing her sweet pussy, masturbating, toying and spreading her nice ass in the bathtub.
JustineJoli_HotBath_0001 JustineJoli_HotBath_0023 JustineJoli_HotBath_0039 JustineJoli_HotBath_0046 JustineJoli_HotBath_0067
JustineJoli_HotBath_0081 JustineJoli_HotBath_0085 JustineJoli_HotBath_0106 JustineJoli_HotBath_0129 JustineJoli_HotBath_0130
JustineJoli_HotBath_0159 JustineJoli_HotBath_0161 JustineJoli_HotBath_0169 JustineJoli_HotBath_0171 JustineJoli_HotBath_0179

CLICK HERE TO ENTER BABE CENTERFOLDS

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