my @buf;
  print $chan2 ("ls -l\n");
  @buf = $chan2->READLINE();
  print @buf;