[oak perl] Customizing a Barcode Checkdigit Subroutine

[Belden Lyman]

Larry -

The example you submitted looks a bit off.

2111200069813
2 1 2 0 6 8 3    # 4 + 2 + 4 + 0 + 12 + 16 + 6 = 44
  1 1 0 0 9 1     #   1 + 1 + 0 + 0 +  9 + 1    = 12

How do you get 26 rather than 44?

Have you checked CPAN for Barcode modules?

Belden