$session = Net::SSH2->new();
$rc = $session->connect($target_ip, $target_port, Timeout=>4000) ;

print "\n rc: $rc";
$session->auth_password($username, $passwd) ;

$chan = $session->channel();

$chan->shell() ;
print $chan $cmd . " \n" ;

my @poll = ({handle=>$chan, events=>['in', 'ext', 'channel_closed']});

$session->blocking(0) ;
$session->poll(1, \@poll) ;
		
        if ($poll[0]->{revents}->{in}) {
            while (<$chan>) {
             $resp  .= $_ ;
            }
		}
		
print "\nresponse : $resp";