#!/usr/bin/perl

##</code><code>##

#!/usr/bin/perl -w
use strict;

##</code><code>##

my $INPUT_FILE = "ipnum";

##</code><code>##

open(INPUT_FILE);
@array = ;
close(INPUT_FILE);

##</code><code>##

open INPUT_FILE, $INPUT_FILE
    or die "Can't open $INPUT_FILE: $!";
my @array = <INPUT_FILE>;
close INPUT_FILE
    or die "Can't close $INPUT_FILE: $!";

##</code><code>##

for my $address (@array) {
    my $output = `nslookup $address`;
    print $output;
}