my $data = "123456789"; use Digest::CRC qw(crc); # name, [width, init, xorout, refout, poly, refin, cont); # crc8 => [8, 0, 0, 0, 0x07, 0, 0], # deins => [8, 0xFF, 0, 0, 0x2F, 0, 0] my $crc = crc($data,8,0xff,0,0,0x2F,0,0);