#! perl -slw
use strict;
use Digest::CRC;

my $o = Digest::CRC->new(
    width => 32,
    init => 0xffffffff, poly => 0x1edc6f41,
    xorout => 0xffffffff,
    refout => 1, refin =>1, cont => 1
);

while( <DATA> ) {
    my( $addrr, @hexBytes ) = split;
    my $data = pack 'H*', join '', @hexBytes;
    $o->add( $data );
}

print $o->hexdigest;

__END__
@0000 FF FF FF 02 24 E0 02 26 A9 02 21 B0 02 21 53 02
@0010 21 6A 02 21 EE 02 21 F5 02 25 55 02 22 7B 02 23
@0090 D2 AF D2 B8 75 1F 01 12 0B B1 75 15 00 E5 0B 20