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

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