#!/usr/bin/perl

use strict;
use Net::SNMP;
use Socket;

my $MIB_ifIndex = "'1.3.6.1.2.1.2.2.1.1'";
my $HOST = "192.168.0.49";
my $COMM = "eX0gyN37";
my $SNMP = 'snmpv2c';

my ($session, $error) = Net::SNMP->session(
        -hostname       => $HOST,
        -version        => $SNMP,
        -community      => $COMM
);

my $result = $session->get_table(
    -baseoid => $MIB_ifIndex
);

foreach (keys %$result)
{
		/(\.1\.3\.6\.1\.2\.1\.2\.2\.1\.1\.\d+\.)$/;
        print(%$result->{$_} . "\n");
}