#! /usr/bin/perl -w

use Term::ReadKey;
use Time::HiRes qw(time);

my @slurp_stdin = <STDIN>;

close STDIN;
open STDIN, "-";

while (1) {
    my $key;
    my $wait_until = time + 3;
    while ( time < $wait_until ) {

	ReadMode 3, STDIN; # 'noecho';
	$key = ReadKey( -1, STDIN );
        if ( defined $key ) {
	    print STDERR "keystroke $key\t";
	}
	ReadMode 0, STDIN;
    }
    print "Something\n";
}