my $chan = $ssh->channel() or die "create channel:$!\n";
$chan->shell() or die("open shell: $!\n");
$chan->blocking(0);
$chan->write("ls\n") or die("write to channel: $!\n"); while ( <$chan> ) {
   print $_;
}