use strict;
use warnings;
use feature 'say';

use Win32::Console;
use Win32::IPC 'wait_any';
use Time::HiRes 'time';

my $IN = Win32::Console-> new( STD_INPUT_HANDLE );

my $max = 15;
my $count = 0;
my $t = time + $max;

while ( wait_any @{[ $IN ]}, 1000 * ( $t - time )) {

    my @ev = $IN-> Input;

    say "Ah ah ah, you didn't press the magic key <--- @ev";
    ++ $count
}

say $count
    ? "Enough, I'm tired! $count events in $max seconds!"
    : "You failed to press ANY key in $max seconds! Read my FAX!!!";