Generator error

#!/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~"; BBW Interracial group sex and FAT lesbian Movies

BBW Interracial Sex Movies at Cj Wright XXX Hey people!!!! The "BOOTIES" on my side of the fence just seem to be getting BIGGER and BIGGER by the dozen. I almost can't believe the luck I come across in the BBW neighborhood and this time.......I've struck pure gold...lol!!!! Her name is Secret and many of you might know her by her debut to the industry on BODacious Magazine. After doing my research on her and getting to know her, I felt she would be a PEARfect fit for cjwrightxxx.com, she had a PEARfect personality, gorgeous eyes and a nice fanbase, not to mention that she actually owns a 70inch BOO-TAY (she was very modest and explained that her ass was only 65inches, BUT I KNOW THE TRUTH)!!!!!! Let me be the first to say that...Reed the whole story on CJwrightXXX.com!


CLICK HERE TO BROWSE CJ WRIGHT XXX

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

BBW Interracial Sex Movies at Cj Wright XXX