$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);

##</code><code>##

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