#!/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 %ifIndexList            = %{$response};
my @ifIndexes;

foreach my $key(sort keys %ifIndexList) { 
	my ($ifIndex) = $key =~ m/1.3.6.1.2.1.31.1.1.1.1.(.*)$/;
	#print $ifIndex . "\n";
	push(@ifIndexes, $ifIndex);
	}

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

print "DONE.\n";