...
  } elsif($command eq '?' or
	  $command eq 'find') {
    &message(<<'EOT');
  Help menu for the command 'find':

  SYNOPSIS
         find <phrase>        - find <phrase> in lexicon and output all
                                meanings found.

  DESCRIPTION
         Both commands are optional. If given a phrase, it is default
         blahblahblah

EOT
  } elsif($command eq 'add') {
    &message(<<'EOT');
  Help menu for the command 'add'

  SYNOPSIS
         add <lex> <entry>    - add an entry <entry> to the lexicon <lex>

  DESCRIPTION
         This adds an entry to the lexicon with the name/type <lex>,
         <entry> must have proper syntax or it will be rejected. If
         blahblahblah

EOT

...