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