Select Code to Download

use strict;
use warnings;
...
my $crc16 = crc($message);
print "CRC16 in decimal: $crc16\n";
print "CRC16 in hex:\n  ", unpack('H*', pack('S', $crc16)), "\n";

cradcliff% ./crc16-modular.pl foo
CRC16 in decimal: 1736882148
...
CRC16 in decimal: 3375757723
CRC16 in hex:
  f99b