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;
}