Based on what works for me on Windows (connecting to a linux server) you should be able to do:

my @output;
$chan->blocking(1);
$chan->exec('nas_server -list');
while (<$chan>) {push @output, $_}
print for @output;
[download]

Cheers,
Rob