my $ctx = Digest::CRC->new(width=>16, poly=>0x1021, init=>0xffff, refin=>1, refout=>1);