#!/usr/bin/perl

use Net::SNMP;
use strict;
use warnings;

my $community           = "eX0gyN37";
my $ip			= "192.168.0.155";

my $IFINDEXLIST		= "1.3.6.1.2.1.31.1.1.1.1";

print "$ip: ";
my ($snmp,$snmperror)   = Net::SNMP->session(
	-hostname       => $ip,
	-community      => $community,
	-version        => 'snmpv2c'
	) or do { print "FAILED TO CONNECT\n"; exit; };

####################################################################
# ALL OF THIS JUST TO GET THE INTERFACE INDEXES IN AN ARRAY? SHEESH!

my $response		= $snmp->get_table(
	$IFINDEXLIST
	) or do { print "FAILED TO GET IFINDEXLIST\n"; exit; };


my @ifIndexes=sort {$a<=>$b} map { m/$IFINDEX.(.*)$/ } keys %{response};


####################################################################

print "DONE.\n";