or download this
#data = (HEX) 3132
my $ctx = Digest::CRC->new(width => 32, poly => 0x04c11db7, init =>
+0xFFFFFFFF, xorout => 0xFFFFFFFF, refin => 1, refout => 1);
...
my $r = $ctx->add(pack 'H*','310132' )->hexdigest;
print "data=", (pack 'H*', '310132'), "= | r=$r=\n";