use Net::SNMP;
    use Net::SNMP::Util;
    my @testoid = ( '1.3.6.1.4.1.4115.1.20.1.1.3.26.1.2' );

    my ($snmp, $error) = Net::SNMP->session(
        -hostname       => "$host",
        -community      => "$Community",
        -timeout   => 60, 
        -nonblocking => 1,
        -debug => 0,
        -maxmsgsize => 65535,
        -version        => 'snmpv2c'
    );  
    if (!defined $snmp) {
        print STDERR "ERROR: %s.\n", $error;
        exit 1;
    }   
    
    my $ret = $snmp->get_bulk_request(
        -callback       => [\& table_cb, {}],
        -maxrepetitions => 10, 
        -varbindlist => [@testoid]
    );  
    
    sub table_cb {
      my $everything  = shift;
      print Dumper($everything);
    }

##</code><code>##

    '1.3.6.1.4.1.4115.1.20.1.1.3.26.1.2.10001' => 'TopSecret',
    '1.3.6.1.4.1.4115.1.20.1.1.3.26.1.2.10002' => 'BPP8EX50',
    '1.3.6.1.4.1.4115.1.20.1.1.3.26.1.2.10003' => 'BPP8EX50',
    '1.3.6.1.4.1.4115.1.20.1.1.3.26.1.2.10004' => 'BPP8EX50',
    '1.3.6.1.4.1.4115.1.20.1.1.3.26.1.2.10005' => 'BPP8EX50',
    '1.3.6.1.4.1.4115.1.20.1.1.3.26.1.2.10006’ => 'BPP8EX50',
    '1.3.6.1.4.1.4115.1.20.1.1.3.26.1.2.10007' => 'BPP8EX50',
    '1.3.6.1.4.1.4115.1.20.1.1.3.26.1.2.10008’ => 'BPP8EX50',