#!c:/perl/perl.exe
use Net::SNMP;
use Data::Dumper;
my $on_battery = "5";  #Indicates that the UPS in on battery power
my $on_commercial = "3";    #Indicates that the UPS in on commercial p
+ower
# requires a hostname and a community string as its arguments
($session,$error) = Net::SNMP->session(Hostname => "test_ups", Communi
+ty 
=> "public");
die "session error: $error" unless ($session);
#.1.3.6.1.2.1.33.1.4.1 is the OID the battery status of the UPS
my $result = $session->get_table (".1.3.6.1.2.1.33.1.4.1");
die "request error: ".$session->error unless (defined $result);

print Dumper( $result );

my @values = values (%$result);
foreach my $key (@values) {
print "$key\n";
my $status = $key;
print "$status\n";
}

if ( $status = $on_commercial ) 
{
    print "The ups is normal\n";
} 
if ( my $status = $on_battery ) 
{ 
    print "The ups is on battery\n";
}
$session->close;
[download]