Someone

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

my $MIB1 = "1.3.6.1.2.1.2.2.1.1";
my $HOST = "128.128.2.10";
my $COMM = "public";
my $SNMP = 'snmpv2c';

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

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

foreach $key ( sort( keys(%$result) ) )
{
        print( $result->{$key} . "\n");
}