Select Code to Download

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