my $class = shift;
  my %params = @_;

  # Instantiate our base class/create representation
  $params{segmenter_type} = "MxTerminator";
  my $self = $class->new_sentence_segmenter (%params);

  return $self;

    my $self = shift;
	my $text = shift;

    # print "MxTerminator, splitting.\n";

    # The rest of clairlib expects to see a single whitespace char at the end of
    # each sentence.
    # MxTerminator keeps a single whitespace character at the end of each sentence.
    
#    Clair::Utils::MxTerminator::init;
    my @sentences = Clair::Utils::MxTerminator::do_document($text);
	return @sentences;