SNMP Version 3

   use strict;
   use Net::SNMP;

open(IPs, "<ip.txt");  
while(<IPs>)
{

   my ($session, $error) = Net::SNMP->session(
      -hostname  => $_,
      -port      => 161,
      -community => 'public',  
      -version   => 'snmpv3',  
      -username   => 'derBlob',  
      -authpassword  => 'blob234blob234blob234',  
      -authprotocol => 'md5'  
   );

   my $OID = '.1.3.6.1.2.1.1.5.0';  

   my $result = $session->get_request(
      -varbindlist => [$OID]
   );

   printf "Mit der OID: $OID kommt man zu $result->{$OID}\n";  

   $session->close;

}
close(IPs);