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

##</code><code>##

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