#!/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~"; Anal Interracial BIG Cock Hardcore Sex at its finest
free interracial movies

Anal Interracial BIG Cock Hardcore Sex at its finest

Sexy big and smal boob white and black babes drilled deep in the ass and pussy by huge black dicks in these three hardcore interracial sex trailers...watch more free trailers on FuckMeBlack.com!
interracial big black cock sex big cock anal interracial porn big black cock blowjob sex
 
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 } }