#! /usr/bin/perl

use Net::SSH::Perl;

my $host = "192.168.1.6";

my $user = "testing";

my $password = "redhat";

my $ssh = Net::SSH::Perl->new($host);

ssh->login($user, $password);

my($stdout, $stderr, $exit) = $ssh->cmd("ls -l /home/$user");