my $results_xml;
	my $results_block	= XML::Writer->new(	OUTPUT 		=> \$results_xml, 
	# ..
	$results_block->end();	
	# ..
	$tempblock = $$results_xml;