use strict;
use warnings;

use String::CRC;

my $message = $ARGV[0];

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

##</code><code>##

cradcliff% ./crc16-modular.pl foo
CRC16 in decimal: 1736882148
CRC16 in hex:
  b7e4
cradcliff% ./crc16-modular.pl foobar
CRC16 in decimal: 3375757715
CRC16 in hex:
  f993
cradcliff% ./crc16-modular.pl foobaz
CRC16 in decimal: 3375757723
CRC16 in hex:
  f99b