Greetings Piercer,

I'm not entirely clear on what you want to gather and display, but from what I understand after reviewing your code, the following may be a solution:

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

open(NB, 'nbt.csv') || die "Can't open input file: nbt.csv";
print join "\n", map { chomp; join ',', $_, map { chomp substr($_,0,15
+) } `nbtstat -a $_`; } <NB>;
close(NB);
[download]

Essentially, it prints out a bunch of lines, one line per IP address stored in the nbt.csv file. Each line has the first 15 characters of each line returned from the nbtstat command.

-gryphon
code('Perl') || die;