sub decode_bcd {
    return (unpack "H*", pack "C*",hex($_[0]));
}