Help for this page

Select Code to Download

Select or download this

while ( $_=getc(STDIN) ) {
  last if /[q\r\003\032]/;# break on q,Return,Ctrl-C,Ctrl-Z
...
  $Index=0 if /[9H1]/;    # home
  $Index=$LineCount if /[3F4]/; # end
}

Select or download this

$oldtty = `stty --save`;
system('stty raw -echo');