#!/usr/bin/perl
use strict;
use warnings;
use Net::SNMP::Interfaces;
use Data::Dumper qw(Dumper);

my $interfaces = Net::SNMP::Interfaces->new(
                         Hostname   => '127.0.0.1',
                         Community  => 'public',
                         Port       => '1161',
                         RaiseError => 1, # Errors are fatal
    );

my @ifnames = $interfaces->all_interfaces();

print Dumper (\@ifnames);