......code.....
ok($keyword_density >= $min_keyword_density,"Keyword density " . sprintf("%2d%%",$keyword_density*100) . ", minimum " . sprintf("%2d%%",$min_keyword_density*100) );