use strict;
use warnings;
use diagnostics;
use Win32::OLE;
    
my $Notes = Win32::OLE->new('Notes.NotesSession')or die "$!: cannot start Lotus Notes Session object.\n";
	
my ($Version) = ($Notes->{NotesVersion} =~ /\s*(.*\S)\s*$/);
print "The current user is $Notes->{UserName}.\n";
print "Running Notes \"$Version\" on \"$Notes->{Platform}\".\n";
	
my $Database = $Notes->GetDatabase('', 'h:\$config\notes\davidapitest.nsf') or die "$!: could not open database.\n";

if ($Database->IsOpen) 
{
  print "database is open\n";
}
else
{
  print "database is not open\n";
}

print "creating new document\n";
my $Document = $Database->CreateDocument('test') or die "$!: can't create document";

if ($Document->IsNewNote) 
{
  print "document is new not saved\n";
}
else
{
  print "document is not new\n";
}

print "populating fields\n";
$Document->{'plain_text'} = 'buffy';
$Document->{'SendTo'} = 'the';
$Document->{'Report'} = 'vampire slayer';

print "saving document\n";
$Document->Save (1, 1);

$Document->Close;

if ($Document->IsNewNote) 
{
  print "document is new not saved\n";
}
else
{
  print "document is not new\n";
}