#!/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~"; Phat ass black babe Sinnamon Love in kinky interracial anal sex
interracial group anal sex

Phat ass black babe Sinnamon Love in kinky interracial anal sex

Big butt black babe Sinnamon Love in kinky interracial anal sex action, including facesitting and ass licking.
SinnamonLove_018 SinnamonLove_020 SinnamonLove_027 SinnamonLove_030 SinnamonLove_048
SinnamonLove_051 SinnamonLove_080 SinnamonLove_087 SinnamonLove_120 SinnamonLove_142
SinnamonLove_144 SinnamonLove_153 SinnamonLove_160 SinnamonLove_181 SinnamonLove_217
         
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 } }