#!/usr/bin/perl

use Modern::Perl;
use Net::SSH::Any;

my $hostname = '192.168.247.128';
my $username = 'perl514';
my $password = 'redhat';
my $cmd = 'ls -l';

if (my $ssh = Net::SSH::Any->new($hostname, user => $username, password => $password))
    {
	say " I am connected to $hostname!!!";
	my @out = $ssh->capture($cmd);
	say "The files and directories of $username on $hostname are given below";
	say "@out";
    }
else
{
    say "whee...something wrong here"
}