use integer;

my $Checksum = 0;
while ($Size--) {
    unless ( sysread ( $FileHandle, $BufferByte, 1) == 1 ) {
        die "sysread size error" ;
    }
    $Checksum += ord($BufferByte);
}
close $FileHandle ;
return $Checksum & 0xffff;