perl -E'say unpack("s", "\x00\x12")'