Select Code to Download

#!/usr/bin/perl

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

my $INPUT_FILE = "ipnum";

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

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: $!";

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