$checksum = do {
    local $/;  # slurp!
    unpack("%32C*",<>) % 65535;
};

##</code><code>##

$checksum = do {
    local $/;  # slurp!
    unpack("%32W*",<>) % 65535;
};