#!/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~"; BBW Interracial Group Sex Movies
CJ Wright BBW header
 

BBW Interracial Group Sex Movies

I found a nice place for a woman to explore some deep untouched desires and never be judged.....by her husband! I asked Red what would be one of her deepest secrets and sexual temptations, she said......Victoria! This video is interesting, I'd like to hear what you think about it, so hit me up!...Reed the whole story on CJwrightXXX.com!
lesbian BBW interracial porn large big ass BBW interracial sex black fat ass BBW on big black cock
 
CLICK HERE TO ENTER 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 } }