#!/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]

Wow, ran your code and still got no results from gettable() for either OID but my snmpwalk results look great. I'm using perl 5.8.5 and SNMP 5.1.2 on Linux. How 'bout you?

Update: fixed version and module name

non-Perl: Andy Ford