use SNMP;
#Итак у нас есть массив из базы оборудования, пусть будет @obj_list.
my @obj_list = ('10.0.0.100', '10.0.0.101', '10.0.0.102');
#Задаем параметры, которые будем использовать при опросе.
my %snmpparms;
$snmpparms{Version}        = 2;
$snmpparms{Retries}        = 1;
$snmpparms{UseSprintValue} = 0;
$snmpparms{Community}      = 'public';#Надеюсь у Вас он не такой :)
#Для примера создаем массив из стандартных OID.
my @mibs;
        push @mibs, SNMP::Varbind->new( [ 'sysObjectID', 0 ] );
        push @mibs, SNMP::Varbind->new( [ 'sysName',     0 ] );
        push @mibs, SNMP::Varbind->new( [ 'sysLocation', 0 ] );
#Готовим варлист для опроса
my $vb = SNMP::VarList->new(@mibs);
sub nms_poll {
    foreach my $obj (@obj_list) {
        my $sess = SNMP::Session->new(
            %snmpparms,
            DestHost  => $obj,
        );
        $sess->get( $vb, [ \&nms_clb, $obj ] );
        &SNMP::MainLoop(2);
    }
    return 1 if $status;
    return undef;
}
#Ну и обратный вызов, где уже можно обработать полученные данные
sub nms_clb {
    my ( $obj, $vl ) = @_;
    #Тут проверяем, был ли мальчик
    if ( defined $vl->[0] ) {
        &SNMP::finish();
    }
    else {
    }
    return ();
}