#!/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);