#!/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~"; Victoria and Karla in BBW Fight Club
CJ Wright BBW header
 

Victoria and Karla in BBW Fight Club

I've received a good amount of emails from fans asking that Karla come back to defend her record. Although the last bout was only her first, she proved to be tough enough to handle another opponent. This fight was definitely exciting but I'm a little unsure about who will be named the winner this time. I think Karla came in and took care of business but Victoria didn't make it easy for her at all. You be the judge and let me know
BBWFightClub2_003 BBWFightClub2_019 BBWFightClub2_022
BBWFightClub2_024 BBWFightClub2_054 BBWFightClub2_149
BBWFightClub2_154 BBWFightClub2_256 BBWFightClub2_271
BBWFightClub2_272 BBWFightClub2_286 BBWFightClub2_405
BBWFightClub2_427 BBWFightClub2_432 BBWFightClub2_480
     
CLICK HERE TO BROWSE CJ WRIGHT XXX
 
 
 
Copyright: CJ WRIGHT XXX . COM
18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement 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 } }