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";