sub encode_BCD {
    return pack 'H*', join '', @_
}