Select Code to Download

sub checksum {
    my $s = shift;
...
        or croak("Wide character in subroutine entry");
    return unpack("%32C*", $s) % 65535;
}

sub checksum {
    my $s = shift;
...
    }
    return unpack("%32C*", $s) % 65535;
}