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;
}