--- /dev/null
+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();