use Net::SSH::Any;

my $ssh = Net::SSH::Any->new('xx.xxx.xxx.xx', user => 'xxx', password => 'xxxx');

my @out = $ssh->capture('ls');

print @out;

C:UsersspectrumDesktop>perl SSH_Any.pl
PTYs are not supported on Windows at SSH_Any.pl line 5.