#!/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 Smoking in Black Dress
hot beautiful girls in erotic sex movies

Justine Joli Smoking in Black Dress

Hot glamour model Justine Joli posing in black sexy dress. Check out this fetish gallery featuring smoking babe Justine teasing and stripping her dress, exposing her perky tits and smooth hot ass!
JustineJoli_BlackDressFashion_0001 JustineJoli_BlackDressFashion_0002 JustineJoli_BlackDressFashion_0005 JustineJoli_BlackDressFashion_0010 JustineJoli_BlackDressFashion_0037
JustineJoli_BlackDressFashion_0042 JustineJoli_BlackDressFashion_0060 JustineJoli_BlackDressFashion_0067 JustineJoli_BlackDressFashion_0072 JustineJoli_BlackDressFashion_0090
JustineJoli_BlackDressFashion_0093 JustineJoli_BlackDressFashion_0099 JustineJoli_BlackDressFashion_0103 JustineJoli_BlackDressFashion_0113 JustineJoli_BlackDressFashion_0120


GlamourFilms™
18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement:
http://glamourfilms.com/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 } }