use SNMP; #pretty much only used for Mib translations use Net::SNMP qw(snmp_dispatcher ticks_to_time); #### $sysUpTime = SNMP::translateObj('sysUpTime.0'); # Create a session for this host my ($session, $error) = Net::SNMP->session( -hostname => $box{ipadd}, -community => $community_string, -port => 161, -nonblocking => 0x1, # Create non-blocking objects -translate => [ -timeticks => 0x0 # Turn off so sysUpTime is numeric ] ); if (!defined($session)) { $err++; logit $DBG, sprintf("ERROR: %s.\n", $error); return 0; }