Select Code to Download

Select or download this

    use Net::SNMP;
    use Net::SNMP::Util;
...
      my $everything  = shift;
      print Dumper($everything);
    }

Select or download this

    '1.3.6.1.4.1.4115.1.20.1.1.3.26.1.2.10001' => 'TopSecret',
    '1.3.6.1.4.1.4115.1.20.1.1.3.26.1.2.10002' => 'BPP8EX50',
...
    '1.3.6.1.4.1.4115.1.20.1.1.3.26.1.2.10006’ => 'BPP8EX50',
    '1.3.6.1.4.1.4115.1.20.1.1.3.26.1.2.10007' => 'BPP8EX50',
    '1.3.6.1.4.1.4115.1.20.1.1.3.26.1.2.10008’ => 'BPP8EX50',