5 $ =~ /(\d+)\.(\d+)/);
#
# used modules
#
use Encode qw(encode decode FB_CROAK LEAVE_SRC);
use JSON qw();
use MIME::Base64 qw(encode_base64 decode_base64);
use No::Worries::Die qw(dief);
use No::Wo
wn compression modules
$_CompressionAlgos, # known compression algorithms
$_JSON, # JSON object
);
%_CompressionModule = (
"lz4" => "LZ4",
"snappy" => "Snappy",
"zlib" => "Zlib",
);
$_CompressionAlgos = join("|", sort(keys(%_CompressionModule)));
$_JSON = JSON->new();
#+++############################################################################
#