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