my $response = $service->transport->send_receive(
    envelope => $envelope
);

##</code><code>##

my $entity = $parser->parse_data($response);

##</code><code>##

        # 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
		}
	}