#!/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~"; Gorgeous BBW Veronica Bottoms
CJ Wright's BBW hardcore interracial sex

Gorgeous BBW Veronica Bottoms

Veronica Bottoms definitely surprised me with her energy and style. It took us a few weeks to actually get together and we even bump into one another on a different shoot but once she came to visit me.....it was as if we had been knowing each other for years. She talks really nasty and enjoys getting her ass slapped HARD!!! This is one BBW that you better keep your eyes on....over 300 new photos to help you get to know her!
034 056
101 147
186 193
211 257
318 336
358 380
389 400
421 423

CLICK HERE TO BROWSE CJ WRIGHT

CJ WRIGHT ™

~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 } }