#!/usr/bin/perl -w  

use strict;    
use Net::SSH2::Perl;    

my $host = "10.160.12.26";    
my $sshusername = "mktftp";    
my $sshpasswd = "markdb";    
print "Start\n";    
my $ssh = Net::SSH2::Perl->new($host, debug => 1, protocol => 2);    
print "Before login\n";    
my $loginStatus = $ssh->login($sshusername,$sshpasswd);    
print "After login\n";    
my $command = "date";    
my $stdout;    
my $stderr;    
my $exit;    

eval {
        ($stdout,$stderr,$exit) = $ssh->cmd($command);    
};

if ($@)
{
        if ($@ =~ m/Permission denied/i) {
                print "Authentication failed\n";
                exit 1;
        }
}

print "$stdout\n";