Select Code to Download

#!c:/perl/perl.exe
use Net::SNMP;
...
    print "The ups is on battery\n";
}
$session->close;

 
C:\>snmp.pl
$VAR1 = {
...
3
The ups is normal
The ups is on battery

$VAR1 = {
          '.1.3.6.1.2.1.33.1.4.1.0' => 3
...
l line 25.
Use of uninitialized value in numeric eq (==) at C:\SNMP.p
l line 29.