Select Code to Download

$stored_as_file = Compress::Zlib::memGzip($stored_as_file);

...
binmode FILE;
print FILE $stored_as_file;
close(FILE);

local( $/, *FILE );
open(FILE, "<:utf8", "$file") or die "err: $!";
...
my $stored_as_file = <FILE>;
close(FILE);
$stored_as_file = Compress::Zlib::memGunzip($stored_as_file);