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");
        }
}