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

open(FILE ,">:utf8", "$file") or die "err: $!";
binmode FILE;
print FILE $stored_as_file;
close(FILE);