#!/usr/bin/perl;
use Modern::Perl;
use 5.014;
use Net::SSH2;

my $nasip = '127.0.0.1'; #Actul IP is different. 

my $user = 'user';

my $pass = 'passwd';

my $ssh = Net::SSH2->new();

$ssh->debug(1);

say "Connecting to $nasip";

$ssh->connect("$nasip") || warn "$!";

$ssh->auth_password("$user","$pass");

my $chan = $ssh->channel();

my @output = $chan->exec('nas_server -list');

say "output is: @output";

$chan->close();