in reply to Timed wait for input

use Term::ReadKey;

ReadMode 4;
if( my $key = ReadKey 10 ) {
    ReadMode 0;
    ## Do stuff
}
ReadMode 0;
exit; ## Do nothing.

[download]
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal?
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.

Replies are listed 'Best First'.
Re^2: Timed wait for input
by dominic7 (Novice) on Oct 22, 2005 at 21:00 UTC
    Ahh! Wonderful. You sir are both a gentleman and a scholar.
[reply]

In Section Seekers of Perl Wisdom