#!/usr/bin/perl

use strict;
use warnings;
use Net::SNMP;

my $timestamp;
my $result; 
my $session;
my $error; 

my $OID_sysUpTime =   '1.3.6.1.2.1.1.3.0';
my $OID_sysContact =  '1.3.6.1.2.1.1.4.0';
my $OID_sysName =     '1.3.6.1.2.1.1.5.0';
my $OID_sysLocation = '1.3.6.1.2.1.1.6.0';

my $OID_pReal =     '1.3.6.1.4.1.3833.1.7.255.15.1.1.3.1.2.1';
my $OID_pReactive = '1.3.6.1.4.1.3833.1.7.255.15.1.1.3.1.3.1';
my $OID_pApparent = '1.3.6.1.4.1.3833.1.7.255.15.1.1.3.1.4.1';

my $sysUpTime;
my $pReal;
my $pReactive;
my $pApparent; 

($session, $error) = Net::SNMP->session(
  -hostname  => 'pm8ecc.erh.earlham.edu',
  -community => 'public',
  -version => '1',
);

if (!defined $session) {
	printf "Error: %s.\n", $error;
	exit 1;
}

$timestamp = time; 

$result = $session->get_request($OID_pReal);

if (!defined $result) {
	printf "Error: %s.\n", $session->error();
	$session->close();
	exit 1;
} else {
	$pReal = $result->{$OID_pReal};
}

printf "At %s pReal = %s\n", 
  $timestamp, $pReal; 

$session->close();

exit 0;