while (length $intext > 32767) {
  $chan->write(substr($intext, 0, 32768, ''));
}
$chan->write("$intext\n");
$chan->send_eof();