sub get_ip_list {
    my $table_index = shift;
    my $oid = "$base_oid"."$oids{$version}".".$table_index";
    my $table = $session->get_table(
        -baseoid => $oid,
        );
    if (!defined $table) {
       my $err = $session->error;
       print "ERROR: $err\n";
       return 0;
    }
    my $ips;
    for my $entry (sort keys %{$table}) {
        my $tail;
        ($tail = $entry) =~ s/^$oid//;
        if ($tail =~ m/^\.5\.1\.4\.(\d)/) {
            $ips->{$1}{start} = $table->{$entry};
        }
        elsif ($tail =~ m/^\.5\.1\.6\.(\d)/) {
            $ips->{$1}{end} = $table->{$entry};
        }
    }
    return $ips;
}

##</code><code>##

ERROR: Received noError(0) error-status at error-index 1

##</code><code>##

darren@monitor:~/nomadix> snmpwalk -v1 -c XXXXX B x.x.x.x 1.3.6.1.4.1.3309.1.4.17
SNMPv2-SMI::enterprises.3309.1.4.17.1.0 = INTEGER: 1
SNMPv2-SMI::enterprises.3309.1.4.17.2.0 = INTEGER: 1
SNMPv2-SMI::enterprises.3309.1.4.17.3.0 = INTEGER: 1
SNMPv2-SMI::enterprises.3309.1.4.17.4.0 = INTEGER: 0
SNMPv2-SMI::enterprises.3309.1.4.17.5.1.2.1 = Counter32: 1
SNMPv2-SMI::enterprises.3309.1.4.17.5.1.4.1 = IpAddress: 61.115.200.69
SNMPv2-SMI::enterprises.3309.1.4.17.5.1.6.1 = IpAddress: 61.115.200.99
SNMPv2-SMI::enterprises.3309.1.4.17.5.1.10.1 = INTEGER: 1

##</code><code>##

my $oid = "$base_oid"."$oids{$version}".".$table_index";