my $channel = $ssh->channel();
$channel->shell();
print $channel "term len 0\n";
while (<$channel>) {
  last if /^>$/;
  push @junk, $_;
}