use DBI;
use Net::SNMP;
 
my $con_db=DBI->connect("DBI:mysql:site","root" );
my $req=$con_db->prepare("select * from ..." );
$req->execute;
 
while(@var=$req->fetchrow_array()){
  my $host ="$var[1]"; // IP
  $o1 = ".1.3.6.1.2.1.2.2.1.10."."$var[5]";  
  $o2 = ".1.3.6.1.2.1.2.2.1.16."."$var[5]";
 
  //$var[5] = numero d'interface
 
      my ($session, $error) = Net::SNMP->session(
         -hostname    => $host,
         -community => "$var[3]",
         -nonblocking => 0x1
      );
      if (!defined($session)) {
         printf("ERROR: %s.\n", $error);
         exit 1;
      }
      $session->get_request(
          -varbindlist => [$o1,$o2],
          -callback    => [\&aff]
      );
}
 
snmp_dispatcher();
 
 exit 0;
 
   sub aff
   {
      local ($session2) = (@_);
      local ($str)=$session2->error;
      print "$str";
 
         local ($r1) = $session2->var_bind_list->{$o1};
         local ($r2) = $session2->var_bind_list->{$o2};
         local ($h) = $session2->hostname;
         print "$h $r1 $r2";
         print "\n";
 
 
      $session2->error_status;
   }