Select Code to Download

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

use Net::DNS::Packet;
use Data::Dumper;
...
           }

 }