#!/usr/bin/perl

use strict;
use warnings;

use SNMP;

$SNMP::verbose = 1;

my $sess = new SNMP::Session(DestHost => "localhost", Community => "public",
	SecName => "myrwuser", SecLevel => "authNoPriv",
	PrivProto => "AES",
	PrivPass => "redhat123",
	AuthProto => "SHA512",
	AuthPass => "redhat123"
);
if (! defined($sess)) {
	print "Error creating session\n";
	exit(1);
}

my $vb = new SNMP::Varbind();
do {
   my $val = $sess->getnext($vb);
   print "@{$vb}\n";
} until ($sess->{ErrorNum});