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

##</code><code>##

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