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