my $ip_obj = NetPacket::IP::strip($Raw_IP_Packet);
my $udp_obj = NetPacket::UDP->decode($ip_obj);
if ($udp_obj->{len}) {
 my $payload = $udp_obj->{data};
 my $transid1 = unpack('n', substr($payload,0,2));
 print "The transID is $transid1 \n";
 }