#open ipfile
open IPFILE, "ipfile2.txt" or die "Can't get IPs - $!\n";
open NAMES, "namefile2.txt" or die "Can't get IPs - $!\n";

open ERASER, ">finallist.txt";
close ERASER;
                                                                          
#Sets knots und community          
my $community = 'public';
my $ifSer   = '.1.3.6.1.2.1.47.1.1.1.1.11'; 
my $ifPart  = '.1.3.6.1.2.1.47.1.1.1.1.13';  


while ( $ip = <IPFILE>, $name = <NAMES> )
{
    
    my @final1;
    chomp $ip;
    chomp $name;
    $name =~ s/\.bc\.de\.bic$//;
    print "Got: $ip\n";                                                                  
    
    #open session
        my ( $s, $e ) = Net::SNMP->session(
        -hostname  => $ip,
        -community => $community,
        -port      => 161
    	);
	if (!defined($s)) 
	{
	print ("Falsch nix is!");
	}


-------------------------------------------------------