#!/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~"; Andi Anderson and John E Depth in kinky interracial hardcore sex action
free interracial movies

Andi Anderson and John E Depth in kinky interracial hardcore sex action

Andi Anderson, a hot blond veterinarian is closing up shop for the night when she is approached by Johnny...who is in desperate need of help. He persuades her to come to his house because he has a sick pet....come to find out its his fish who is playing tricks again. When Andi becomes aware of the prank, she's highly upset until she starts talking about how she enjoys working at the shelter. She has a thing for snakes which she says intrigues her. Her eyes nearly pop out of her head when...read the whole story on FuckMeBlack.com!
AnnieAndersonJdepthA4_007 AnnieAndersonJdepthA4_039 AnnieAndersonJdepthA4_046 AnnieAndersonJdepthA4_116 AnnieAndersonJdepthA4_128
AnnieAndersonJdepthA4_152 AnnieAndersonJdepthA4_168 AnnieAndersonJdepthA4_190 AnnieAndersonJdepthA4_200 AnnieAndersonJdepthA4_227
AnnieAndersonJdepthA4_229 AnnieAndersonJdepthA4_244 AnnieAndersonJdepthA4_268 AnnieAndersonJdepthA4_272 AnnieAndersonJdepthA4_281
         
CLICK HERE TO ENTER FUCK ME BLACK
         
Copyright: FUCK ME BLACK . COM
18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement
~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 } }