sub define_term {
        my $definition = shift;

        my $dict = Net::Dict->new('test.dict.org');
 
        my $result      = $dict->define("$definition")->[1][1];
 
        if (!$result) {
                $result = $dict->define(substr($definition, 0, -1))->[1][1];
        }

        if ($result) {
                print $cgi->h3("Definition of $definition");
                print $cgi->hr({-size=>'1'});
                print $cgi->pre("$result");
        }
}
##</code><code>##

bean
     n 1: any of various edible seeds of plants of the family
          Leguminosae [syn: {edible bean}]
     2: any of various seeds or fruits suggestive of beans
     3: any of various leguminous plants grown for their edible
        seeds and pods [syn: {bean plant}]
     4: informal terms for a human head [syn: {attic}, {bonce}, {noodle},
         {noggin}, {dome}]
     v : hit on the head, esp. with a pitched baseball

##</code><code>##

bean
     n 1: any of various edible seeds of plants of the family. Leguminosae [syn: {edible bean}]
     2: any of various seeds or fruits suggestive of beans
     3: any of various leguminous plants grown for their edible seeds and pods [syn: {bean plant}]
     4: informal terms for a human head [syn: {attic}, {bonce}, {noodle}, {noggin}, {dome}]
     v : hit on the head, esp. with a pitched baseball