perl -le 'print unpack("h*",pack("H*","1"))'