use strict;
use warnings;
use Win32::OLE;
use Data::Dumper::Simple;


my $Notes = Win32::OLE->new('Notes.NotesSession')
    or die "Cannot start Lotus Notes Session object.\n";
    
my $db = $Notes->GetDatabase("server", "c_dir/theDBase.nsf")
    or die "Could not open database.\n";

my ($Version) = ($Notes->{NotesVersion} =~ /\s*(.*\S)\s*$/);

#
print "The current user is $Notes->{UserName}.\n";
print "Running Notes \"$Version\" on \"$Notes->{Platform}\".\n\n\n";

my $Count = $db->AllDocuments->Count;
print "\nConnected to ", $db->{Title}, " on ", $db->{Server};
print "\nThere are $Count documents in the database.\n";


my $AllDocuments = $db->AllDocuments;
my $doc = $AllDocuments->GetFirstDocument;

while ( $doc ) {
	my $NextDoc = $AllDocuments->GetNextDocument($doc);
	my $abst = $doc->GetItemValue("Abstract");
        
        if ($abst)
        {
        warn Dumper($abst);
    	print "abstract = $abst\n";
    	}
    	$doc = $NextDoc;
    
}