# We have some parts - one XML at least
	my $num_parts  = $entity->parts;

	# No guarantee of order 
	for(my $i = 0; $i < $num_parts; $i++)
	{
		my $part = $entity->parts($i);
		if($part->mime_type eq 'text/xml')
		{
			# Do stuff with XML
		}
		else
		{
			$datatype = $part->mime_type;
			# Do stuff with attachment
		}
	}