#!/usr/bin/perl
use strict;
use warnings;

use SNMP;

my $session = new SNMP::Session(DestHost => 'xxx', Community => 'xxx', Version => '2');

my $ifTable = $session->gettable('ifTable',noindexes=>1);

print "Interfaces: ", join(", ", keys %{$ifTable}), "\n";

while (my ($key, $info) = each %{$ifTable}) {
  print "key: ", $key, "ifDescr: ", $info->{ifDescr}, "\n";
}