use Net::SSH::Any qw();
my $ssh =
  Net::SSH::Any->new( '172.20.251.20', user => 'root', password => 'r3v3nue' );
my @tmp = $ssh->capture('ls -lrt');
print " @tmp";