Select Code to Download

my $doc, $zipped;
my $writer = new XML::Writer(OUTPUT=>\$doc, ...);
# write stuff ...
$writer->end();
gzip \$doc => \$zipped;

my $copy = $doc;
gzip \$copy => \$zipped;