#!/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~"; TBASSFLICK
www.tbassflick.com

Queen Diva and Prince

Hot sexy black babe Queen Diva, spreading her ass and pussy outdoors, and having nasty hardcore sex with big black cock! Check out this kinky scene where Queen Diva blows Prince’s big dick and takes a nice cream-pie load at the end.
IMG_0601 IMG_0634 IMG_0640
IMG_0641 IMG_0650 IMG_0651
IMG_0653 IMG_0682 IMG_0683
IMG_0697 IMG_0710 IMG_0740
IMG_0744 IMG_0747 IMG_0757

CLICK HERE TO BROWSE TBASSFLICK

TBASSFLICK ™

~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 } }