#!/usr/bin/perl -w

use strict;

my $input_file = "ipnum";
my @array;

{
	local *INPUT;
	open(*INPUT, $input_file) or die "Cannot open: $!";
	@array = <INPUT>;
	close(*INPUT) or die "Cannot close: $!";
}

foreach my $address (@array) {
	my $output = `nslookup $address`;
	print $output, "\n";
}