foreach my $embeddedDoc ( $DocumentBody->{EmbeddedObjects} ) {
		my $edocType =$embeddedDoc->{Type};
		if ( $edocType eq 'EMBED_ATTACHMENT' ) {
			print "Embedded Attachment!\n"; 
		} elsif ( $edocType eq 'RICH_TEXT' ) {
			print "Some sort of Rich Document\n";
		} else { 
			print "Unknown Attachment! [ $edocType ] \n"; 
		}
		
	}


##</code><code>##

..snip..
Running Notes "Release 4.5.5 (Intl)|14 April 1998" on "Windows/32".
There are 470 documents in the database.
1. Test
2. Test
.. snip ..
74. Metrics for the past 2 weeks.
Unknown Attachment! [  ] 
.. snip ..