#!/usr/bin/perl

$INPUT_FILE = "ipnum";
open(INPUT_FILE);
@array = <INPUT_FILE>;
close(INPUT_FILE);

for my $array (@arrays) {
my $output = 'nslookup $array';
print ($output);
}