# you can find this documented in various places
# I believe its known as a System V sum.
my $sum = unpack( "%32C*", $string ) % 65535 ;