sub load_mibs {
    my ($attr, $Nms) = @_;
    #Если MIB Вашего оборудования располагаются в каталоге, отличном от
    #стандартного(с моей точки зрения - это правильный подход), указываем здесь
    my $MIB_search_path = '../modules/Nms/mibs';
    #Добавляем свой путь во внутренний лист библиотеки
    SNMP::addMibDirs($MIB_search_path);
    SNMP::addMibDirs($MIB_search_path . '/private');
    #Здесь уже можно загрузить все модули, но при работе с реальным уст-ом
    #я загружаю только нужные мне.
    if ( $attr->{ALL} ) {
        SNMP::addMibFiles( glob( $MIB_search_path . '/private' . '/*' ) );
        SNMP::initMib();
    }
    #Пусть это будет DES3200-28
    elsif ( $attr->{SYS_ID} ) {
        my @mods = ('EQUIPMENT-MIB', 'DES3200-28-L3MGMT-MIB', 'CABLE-DIAG-MIB');
        #Здесь, в отличии от первого варианта, загрузятся только нужные MIB
        SNMP::loadModules(@mods);
        SNMP::initMib();
    }
    return 1;
}

IMPORTS
    MODULE-IDENTITY, OBJECT-TYPE, NOTIFICATION-TYPE,
    OBJECT-IDENTITY, Counter32, Gauge32, Integer32, mib-2
        FROM SNMPv2-SMI
    DisplayString, TimeStamp, TimeInterval, TestAndIncr,
      AutonomousType, TEXTUAL-CONVENTION
        FROM SNMPv2-TC
    MODULE-COMPLIANCE, OBJECT-GROUP
        FROM SNMPv2-CONF;

sub mibs_tree {
    my ($attr) = @_;
    my %labels;
    my @tree_arr;
    foreach my $oid ( sort keys(%SNMP::MIB) ) {
        #Определяем ветку дерева, либо корень.
        my $prev_id =
              ( $SNMP::MIB{$oid}{parent} )
              ? $SNMP::MIB{$oid}{parent}{objectID}
              : '#';
        #Ну и дальше мы определяем типы OID и навешиваем атрибуты для jsTree
        my $icon = '';
        my %type;
        if ( $SNMP::MIB{$oid}{children}[0]{indexes}[0] ) {
          $type{type} = 'table';
        }
        elsif ($SNMP::MIB{$oid}{parent} && $SNMP::MIB{$oid}{parent}{indexes}[0]){
            $type{type} = 'row';
        }
        elsif ( $SNMP::MIB{$oid}{type} ) {
            $type{type} = 'scalar';
        }
        elsif ( $SNMP::MIB{$oid}{indexes}[0] ) {
            $type{type} = 'indexes';
        }
        else {
            $type{type} = 'folder';
        }
        push @tree_arr,
              (
                {
                    id     => $SNMP::MIB{$oid}{objectID},
                    text   => $SNMP::MIB{$oid}{label},
                    parent => $prev_id,
                    %type
                }
              );
        }
    }
    my %types = (
        table   => { icon => 'fa fa-table' },
        row     => { icon => 'fa fa-columns' },
        scalar  => { icon => 'fa fa-paragraph' },
        indexes => { icon => 'fa fa-list-ul' },
        folder  => { icon => 'fa fa-folder-o' },
    );
    return make_tree(
        {
            plugins => [ 'types', 'search', 'contextmenu' ],
            contextmenu => { items => '*customMenu*' },
            types       => \%types,
            core        => { data  => \@tree_arr }
        }
    );
}