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