Please note that the checksum subroutine given in the OP is insidiously buggy for odd length arguments (which is never the case here). Since $num_short calculation is missing int(), the unpack template ends in ".5", which in turn inserts an erroneous element to the loop.

Anyone reading this thread is probably better served by searching for newer and more mature examples.