# -sam k (commport5@lucidx.com)

sub arp_decode {
 my ($pkt) = @_;
 my %arpa;
# n            n            C           C           n             H12        H8         H12        H8
 ($arpa{htype},$arpa{proto},$arpa{hlen},$arpa{plen},$arpa{opcode},$arpa{sha},$arpa{spa},$arpa{tha},$arpa{tpa})
 = unpack('nnCCnH12H8H12H8', $pkt);
 $arpacket{data} = undef;
 return %arpa;
}

1;