Select Code to Download

use warnings;
use strict;
...
is_deeply [calcit("2D40A2C1B4D")], [47,43,45], "2D40A2C1B4D";
is_deeply [calcit("2D40A2C1B")],   [43,43,41], "2D40A2C1B";
done_testing;