#!/usr/bin/perl

use warnings;
use strict;

use SNMP;
use Data::Dumper;
$Data::Dumper::Useqq = 1;

my $switchaddr = '<SET_ME>';
my $community = '<SET_ME>';


my $snmp = SNMP::Session->new (
    DestHost => $switchaddr,
    Community => $community,
    Version => '2c',
) or die "Unable to connect to $switchaddr\n";

for my $oid (qw/
    .1.3.6.1.2.1.2.2 
    .1.3.6.1.2.1.17.4.3.1.1
/) {

    print "\nTrying snmpwalk on $oid\n=========================\n";
    print scalar `snmpwalk -O n -v 2c -c $community $switchaddr $oid`;
    
    print "\nTrying SNMP->gettable on $oid\n=========================\
+n";
    my $response;
    eval { $response = $snmp->gettable ($oid) };
    if ($@) {
        print "FAILED: $@\n";
    }
    else {
        print Dumper $response;
    }
}
[download]