print "Content-type: text/html\n\n";
print "1-";
use Net::SSH::Perl;
print "2-";
my $ssh = Net::SSH::Perl->new($Config->{ssh}->{host}, {protocol => 2, debug => true});
print "3-";
$ssh->login($Config->{ssh}->{user}, $Config->{ssh}->{pass});
print "4-";
my ($stdout, $stderr, $exit) = $ssh->cmd("ls");
print "Output:- $stdout, $stderr, $exit";