#!/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~"; Hot phat ass BBW Amber Peach probed by huge black dick
free interracial movies

Hot phat ass BBW Amber Peach probed by huge black dick

Sexy fat babe Amber Peach drilled deep by the huge black cock of John E Depth in this interracial hardcore sex scene......read the whole story on FuckMeBlack.com!
IMG_3566 IMG_3585 IMG_3594 IMG_3647 IMG_3655
IMG_3680 IMG_3682 IMG_3705 IMG_3724 IMG_3733
IMG_3755 IMG_3760 IMG_3763 IMG_3773 IMG_3777
         
CLICK HERE TO ENTER FUCK ME BLACK
         
Copyright: FUCK ME BLACK . COM
18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement at:
http://fuckmeblack.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 } }