/usr/share/doc/libsnmp-perl/examples/mibwalk.pl is in libsnmp-perl 5.7.2~dfsg-8.1ubuntu3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | # snmpwalk of entire MIB
# stop on error at end of MIB
use SNMP 1.8;
$SNMP::use_sprint_value = 1;
my $host = shift || localhost;
my $comm = shift || public;
$sess = new SNMP::Session(DestHost => $host, Community => $comm);
$var = new SNMP::Varbind([]);
do {
$val = $sess->getnext($var);
print SNMP::Varbind::tag($var).".".SNMP::Varbind::iid($var)." = ".
SNMP::Varbind::val($var)."\n";
} until ($sess->{ErrorStr});
|