/usr/share/doc/libsnmp-perl/examples/async1.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 | use SNMP;
$SNMP::auto_init_mib = 0;
$sess = new SNMP::Session();
sub poller {
# VarList is undefined if TIMEOUT occured
if (!defined($_[1])) { die "request timed out[$_[0]->{ErrorStr}]\n"; }
if ($i++>100000) { die "completed 500 polls\n"; }
#print $_[1][0]->tag, " = ", $_[1][0]->val, "\n";
$_[0]->get($_[1], [\&poller, $_[0]]);
}
$sess->get([[".1.3.6.1.2.1.1.3.0"]], [\&poller, $sess]);
SNMP::MainLoop();
|