print $q->header;

while (my $row = $sth->fetchrow_hashref) {
	my $word = $row->{'crps_word'};
	my $prob = $row->{'crps_probability'};
	my $str = $prob."----".$word;
	print qq|<option value="$word">$str</option>|;
}