#!/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~"; Huge Ass BBW Jo'vey posing as a Referee
CJ Wright BBW header
 

Sexy fat Ass BBW Jo'vey posing as a Referee

Sexy huge ass BBW Jo'vey posing as a fat referee in Sacramento, exclusively for CJWrightXXX.com. Enjoy!
001 040 066 077 083
118 122 137 143 148
167 170 194 211 212
 
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 } }