I would like to include that favorite mantra "Press any key to continue" in one of my programs. So, I stupidly did

my $key;
while(undef($key)) {
    $key = <STDIN>;
}
[download]

which, obviously, did not work. I needed something that would not wait for a return. So, I started searching around for some non-blocking I/O calls; and I found this reply in this thread. So, I got the "any key phenomenon" to work with this code:

my $key;
my $term = new POSIX::Termios;
$term->setlflag(~ICANON);  # turn canonical mode off
$term->setcc(VMIN,1);      # read 1 char min
$term->setcc(VTIME,0);     # no timeout
$term->setattr(0,TCSANOW); # apply it to STDIN
while( read(STDIN,$key,1) ) {
    last if(defined($key));
}
[download]

So, I had that working wonderfully. However, my terminal was going crazy. It would ignore CTRL-C and the like, it would interpret a return as ^M, etc. So, I decided to change the I/O gathering back to normal using the following code that directly follows the above while loop:

$term->setlflag(ICANON);   # set back to canonical mode
$term->setattr(0,TCSANOW); # apply it to STDIN
undef($term);  # cleaning up
[download]

But, alas, that does nothing. How do you reset STDIN? And, just in case, if anyone else has a better idea about implementing "press any key," I am all ears.

Jeremy