# -sam k (commport5@lucidx.com)

sub icmp_decode {
 my ($pkt) = @_;
 my %icmpa;
 ($icmpa{type}, $icmpa{code}, $icmpa{cksum}, $icmpa{data}) = unpack("CCna*", $pkt);
 return %icmpa;
}

1;