Add $|= 1;. (perlvar)
Update: You should also treat chr(13) the same as chr(10) as the raw mode you are putting things into means that the default translation to a "\n" upon input of a "\r" is disabled (at least in some environments). I had to type Ctrl-J to get it to end.
- tye
In reply to Re: Problems with Term::ReadKey (output problem, not input)
by tye
in thread Problems with Term::ReadKey
by uberdisco
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |