$c = Clair::MEAD::DocsentConverter(
        dest => "output/path",
        lang => "ENG",
        naem => "mycluster" 
    );
Creates a new converter object.

    my $self = shift;
    my @docs = @{ $self->{docs} };
    foreach my $doc (@docs) {
        my $id = $doc->get_id();
        $id =~ s/.*?\///g;
        $id =~ s/\.docsent//g;
        $doc->set_id(id => $id);
    }

    my $self = shift;
    my $cluster = shift;

    my @docs = @{ $self->{docs} };
    my $documents = $cluster->documents();
    foreach my $doc (values %$documents) {
        push @docs, $doc;
    }

    $self->{docs} =\@ docs;

    my $self = shift;
    my $dir = shift;

    my @docs = @{ $self->{docs} };

    die "Expected directory: $!" unless (-d $dir);

    opendir DIR, $dir or die "Could not read directory: $!";
    my @files = readdir(DIR);
    close DIR;

    foreach my $file (@files) {
        if (-f "$dir/$file") {
            my $type = "text";
            if ($file =~ /\.html$/) {
                $type = "html"
            }
            $file =~ /([^\/]+)$/;
            my $id = $1;
            my $doc = Clair::Document->new(
                file => "$dir/$file",
                type => $type,
                id => $id
            );
            push @docs, $doc;
        }
    }

    $self->{docs} =\@ docs;

    my $self = shift;
    my @new_docs = @_;

    my @docs = @{ $self->{docs} };
    
    push @docs, @new_docs;

    $self->{docs} =\@ docs;

    my $self = shift;
    my @files = @_;

    my @docs = @{ $self->{docs} };
   
    foreach my $file (@files) {

        my $type;
        if ($file =~ /\.html$/) {
            $type = "html";
        } else {
            $type = "text";
        }

        $file =~ /([^\/]+)$/;
        my $id = $1;

        my $doc = Clair::Document->new(file => $file, 
                                       type => $type, 
                                       id => $1);
        push @docs, $doc;
    }

    $self->{docs} =\@ docs;

    my $self = shift;
    $self->_clean_ids();
    my @docs = @{ $self->{docs} };

    my $docsent_dir = "$self->{dest}/docsent";
    my $orig_dir = "$self->{dest}/orig";

    mkdir($self->{dest}) or die $! unless (-d $self->{dest});
    mkdir($docsent_dir) or die $! unless (-d $docsent_dir); 
    mkdir($orig_dir) or die $! unless (-d $orig_dir); 


    # Create the docsent files and the originals
    foreach my $doc (@docs) {
        my $id = $doc->get_id();

        my $out_file = "$docsent_dir/$id.docsent";

        $doc->strip_html();

        open DOCSENT, "> $out_file" or die "Could not write to $out_file: $!";
        print DOCSENT get_docsent_header($id);

        my $i = 1;
        foreach my $sentence ($doc->split_into_sentences()) {
            $sentence = sanitize($sentence);
            print DOCSENT "<S PAR=\"1\" RSNT=\"1\" SNO=\"$i\">$sentence</S>\n";
            $i++;
        }

        print DOCSENT get_docsent_tail;
        close DOCSENT;

        open ORIG, "> $orig_dir/$id";
        print ORIG $doc->get_text();
        close ORIG;
    } 

    # Create the cluster file
    my $outname = $self->{name};
    $outname =~ s/.*?\///g;
    my $cluster_file = "$self->{dest}/$outname.cluster";
    open CLUSTER, "> $cluster_file";
    print CLUSTER get_cluster_header($self->{lang});

    foreach my $doc (@docs) {
        my $id = $doc->get_id();
        $id =~ s/.*\///g;
        print CLUSTER "<D DID=\"$id\"/>\n";
    }

    print CLUSTER get_cluster_tail;
    close CLUSTER;

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

    unless (defined $parameters{dest}) {
        die "Expected directory";
    }

    unless (defined $parameters{lang}) {
        $parameters{lang} = "ENG";
    }

    unless (defined $parameters{name}) {
        $parameters{name} = $parameters{dest};
    }

    my @docs = ();
    $parameters{docs} =\@ docs;

    my $self = bless\% parameters, $class; 
    return $self;