##########################################
#!/usr/local/bin/perl
use Net::SSH::Perl;
use strict;

my $host = "***********";

print $ENV{"HOME"}."\n";

my %params=( identity_files =>["/home/vendor2/.ssh/id_dsa"],protocol=>'2',debug => 1);

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

$ssh->login("vendor1") ;

my  $cmd = "ls -ltr ";
my ($stdout) = $ssh->cmd($cmd);
print $stdout;
##########################################