#!/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 kinky interracial anal group sex movies
interracial group anal sex

Lisa Ann in kinky interracial anal sex action

Sexy brunette babe Lisa Ann in hot interracial anal sex action with big cock black prisoner.
Lissa_Ann1_003 Lissa_Ann1_007 Lissa_Ann1_043 Lissa_Ann1_055 Lissa_Ann1_091
Lissa_Ann1_130 Lissa_Ann1_169 Lissa_Ann1_194 Lissa_Ann1_307 Lissa_Ann1_310
Lissa_Ann1_317 Lissa_Ann1_321 Lissa_Ann1_338 Lissa_Ann1_345 Lissa_Ann1_351
         
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 } }