#!/usr/bin/perl

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

my ($session, $error) = Net::SNMP->session(Hostname => '172.25.0.5',
					Community => 'testcommunity',
					port => 161)		or die "Session: $!\015\012";

my $ram = $session->get_request("1.3.6.1.2.1.25.2.2.0")				or die "get_request ram: $!\015\012";
my $uptime = $session->get_request("1.3.6.1.2.1.25.1.1.0")			or die "get_request uptime: $!\015\012";
my $drive1 = $session->get_request("1.3.6.1.2.1.25.2.3.1.6.1")			or die "get_request drive1: $!\015\012";
my $processes = $session->get_request("1.3.6.1.2.1.25.1.6.0")			or die "get_request processes: $!\015\12";
$session->close;

print "RAM: ".$ram->{"1.3.6.1.2.1.25.2.2.0"}."\015\12";
print "Uptime: ".$uptime->{"1.3.6.1.2.1.25.1.1.0"}."\015\012";
print "Drive 1: ".$drive1->{"1.3.6.1.2.1.25.2.3.1.6.1"}."\015\012";
print "Processes: ".$processes->{"1.3.6.1.2.1.25.1.6.0"}."\015\012";