#!/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~"; Sexy fat Ass BBW Veronica
CJ Wright BBW header
 

Sexy fat Ass BBW Veronica

Sexy huge ass BBW latina Veronica posing in hot lingerie and spreading het butt in these art photos, exclusively for CJWrightXXX.com. Enjoy!
046 052 066 078 104
128 144 184 217 221
261 293 362 375 395
 
CLICK HERE TO ENTER CJ WRIGHT XXX
 
  Copyright: CJ WRIGHT XXX . COM
2257 Info at:
http://cjwrightxxx.com/2257.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 } }