sub get_definition_result {
       my ($dbh, $word_term, $dict) = @_; 
 
       my $result;
       my $definition_sth = $dbh->prepare(qq{SELECT definition from dream_terms where term=?});
       $definition_sth->execute($word_term);
       $definition_sth->bind_col(1, \$result);

# XXX: don't you need to fetch here?
 
       print ">>>$result<<<\n";  
 
       return [ [ undef, $result ] ];
}