#!/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~"; CJ Wright's interracial anal group sex films
interracial group anal sex

Katja Kassin in group interracial anal sex

Sexy brunette babe Katja Kassin in hot interracial group sex action with three black movers.
KatjaKassin_001 KatjaKassin_025 KatjaKassin_028 KatjaKassin_046 KatjaKassin_051
KatjaKassin_079 KatjaKassin_082 KatjaKassin_093 KatjaKassin_168 KatjaKassin_178
KatjaKassin_200 KatjaKassin_208 KatjaKassin_211 KatjaKassin_229 KatjaKassin_260
         
CLICK HERE TO ENTER CJ WRIGHT XXX ANAL
 
 
Copyright: CJ WRIGHT XXX ANAL . COM
18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement at:
http://cjwrightxxxanal.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 } }