foreach my $embeddedDoc ( $DocumentBody->{EmbeddedObjects} ) {

		print ref($embeddedDoc) if ( ref($embeddedDoc));
		print "\n";
		#reply->  ARRAY
		foreach my $arryele ( @{$embeddedDoc } ) {
		   print "Array Element: $arryele\n";
		   #reply-> Array Element: Win32::OLE=HASH(0x183a66c)
		   print ref($arryele) if ( ref($arryele));
		   print "\n";
		   #reply-> Win32::OLE
			
			# now I'm stuck
			# The following does nothing
	   		foreach my $hashval ( keys %{$arryele} ) {
				print "$hashval = $arryele->{$hashval}\n";
				
			}
		}


		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"; 
		}
		
	}
    }