#!/usr/bin/perl

use Net::SNMP;
use strict;
use warnings;

my $community           = "eX0gyN37";
my $inputfilename       = "/home/cjones/snmpscripts/hostipaddresses.txt";
my $HOSTNAME_OID        = "1.3.6.1.4.1.9.2.1.3.0";

open my $input, '<', $inputfilename or die "$0: $inputfilename: $!\n";

for my $ip  (<$input>) {

#       $ip =~ s/\n//;
#       $ip =~ s/\r//;

        chomp $ip;

        print "$ip - ";
        my ($snmp,$snmperror)   = Net::SNMP->session(
                -hostname       => $ip,
                -community      => $community
                ) or do { print STDERR "Failed to connect to '$ip'\n"; next; };

        my $response            = $snmp->get_request(
                $HOSTNAME_OID
                ) or do { print STDERR "Failed to connect to '$ip'\n"; next; };

        my $hostname            = $response->{"$HOSTNAME_OID"};

        die "Hostname isnt being defined for some reason\n" unless defined $hostname;

        print $hostname . "\n";
}