# -sam k (commport5@lucidx.com)

sub udp_decode {
 my ($pkt) = @_;
 my %udpa;
 ($upda{src_port}, $upda{dest_port}, $udpa{len}, $udpa{cksum}, $udpa{data}) = unpack("nnnna*", $pkt);
 return %udpa;
}

1;