#!/usr/bin/perl
use Modern::Perl;
use Net::SSH::Any;

my $host = '192.168.247.101';
my $user = "perl514";
my $passwd = "redhat";
my $ssh = Net::SSH::Any->new ($host, user => $user, password => $passwd);
my @output = $ssh->capture2("ls -l");
say "@output";