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'
   );
   
      			if (!defined($session))		#Prüfung ob die Sitzung funktioniert
			{
      				printf("ERROR: %s.\n", $error);
      				exit 1;
   			}

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