The code

    use Plucene;
    use Plucene::Analysis::SimpleAnalyzer;
    use Plucene::Index::Writer;
    use Email::Simple;
    use Email::Folder;
    use strict;

    my $analyzer = Plucene::Analysis::SimpleAnalyzer->new();
    my $writer = Plucene::Index::Writer->new("my_index", $analyzer, 1);

    sub add_field {
	my $doc = shift;
	my $name = shift;
	my $content = shift;
	$doc->add(Plucene::Document::Field->UnStored($name => $content));
    }