Select Code to Download

#!/usr/bin/perl -w

...
my $dec = NetPacket::ICMP->decode($buffer); 

print Dumper($dec);

boo
peerhost 192.168.1.20:0
...
                                                    qtest',
                 'code' => 192
               }, 'NetPacket::ICMP' );