my $block1 = 1;
my $block2 = 1;
my $block3 = 1;

my $chan = $ssh2->channel();
$chan->blocking($block1);
$chan->exec('ls -la');
while (<$chan>) { print }
$block1 = 0;
$chan->blocking($block1);
$chan->close;