$checksum = unpack("%32C*", $foo) % 32767;