Select Code to Download

use PerlIO::gzip;
open my $out, ">:gzip", "tst.gz";
...
open my $in, "<:gzip", "tst.gz";
print while <$in>;
close $in;