#!/usr/bin/perl -w
use strict;
use warnings;
use Math::BaseCnv;
use Digest::CRC qw(crcccitt crc crc8 crcopenpgparmor);

my $pkt = "7AEE840000187A011B80C001001100119103F3267D000000000000FF00000000";

my $crc = crc8($pkt);

print "$crc\t". cnv($crc,10,16) ."\n";