$dec = unpack('N', $val)