view release on metacpan or  search on metacpan

bin/rltelnet  view on Meta::CPAN

   } else {
      # we assume we never get EAGAIN, sorry
      print "$rbuf\nERROR: $!\n";
      exit 1;
   }
};

#$rl->set_signals;
$rl->unbind_key (9);

$rl->add_defun (telnet_escape => sub {
   print "$rbuf\nEscape detected, exiting.\n";
   exit 0;
}, 0x1d);

$| = 1;

$quit->recv;

__END__