Select Code to Download

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

my $sum = unpack( "%32C*", $$str_ref ) % 65535 ;