$hex = unpack ("H*", pack ("B*", $_));