use Digest::CRC;

my ($crc, $input, $width, $init, $xorout, $refout, $poly, $refin, $cont, $digest, $ctx);

$width  = 16;
$init   = 0xffff;
$xorout = 0xffff;
$refout = 1;
$poly   = 0x1021;
$refin  = 1;
$cont   = 0;      # ???

$input = 0xaabbccdd;

$ctx = Digest::CRC->new(width=>$width, init=>$init, xorout=>$xorout, 
         refout=>$refout, poly=>$poly, refin=>$refin, cont=>$cont);
$ctx->add($input);

$digest = $ctx->hexdigest;

say $digest;