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

##</code><code>##

$checksum = unpack("%64C*", $foo) %  2**(64-1)-1