sub run_testsuite {
    my $cmd = $_[0];
    my $ssh2 = $_[1];

    my $chan2 = $ssh2->channel();
    #$chan2->blocking(0);
    $chan2->exec($cmd);
    print "LINE : $_" while <$chan2>;
    $chan2->close;
    return 0;
}

##</code><code>##

 Executing command...
 ==> Running pwd
LINE : /home/sisyphus
test passed done 0

##</code><code>##

 Executing command...
 ==> Running pwd
Net::SSH2::poll: timeout = 1000, array[0]
libssh2_channel_open_ex(ss->session, mandatory_type, strlen(mandatory_type), window_size, packet_size, ((void *)0) , 0 ) -> 0x2a6e3c4
Net::SSH2::Channel::getc(ext = 0)
Net::SSH2::Channel::getc(ext = 0)
Net::SSH2::Channel::getc(ext = 0)
Net::SSH2::Channel::getc(ext = 0)
Net::SSH2::Channel::getc(ext = 0)
Net::SSH2::Channel::getc(ext = 0)
Net::SSH2::Channel::getc(ext = 0)
Net::SSH2::Channel::getc(ext = 0)
Net::SSH2::Channel::getc(ext = 0)
Net::SSH2::Channel::getc(ext = 0)
Net::SSH2::Channel::getc(ext = 0)
Net::SSH2::Channel::getc(ext = 0)
Net::SSH2::Channel::getc(ext = 0)
Net::SSH2::Channel::getc(ext = 0)
Net::SSH2::Channel::getc(ext = 0)
LINE : /home/sisyphus
Net::SSH2::Channel::DESTROY
test passed done 0
Net::SSH2::DESTROY object 0x297d73c

##</code><code>##

 Executing command...
 ==> Running pwd
Net::SSH2::poll: timeout = 1000, array[0]
libssh2_channel_open_ex(ss->session, mandatory_type, strlen(mandatory_type), window_size, packet_size, ((void *)0) , 0 ) -> 0x29ce3c4
Net::SSH2::Channel::getc(ext = 0)
Net::SSH2::Channel::DESTROY
test passed done 0
Net::SSH2::DESTROY object 0x28dd73c

##</code><code>##

print $chan2 "$cmd \n";

##</code><code>##

print $chan2 "$cmd\n";