use strict;
use warnings;
use Term::ReadKey;
use Time::HiRes qw( gettimeofday );

ReadMode( 5 );

my $timings_needed = 15;
my @timings = ();

while ( $timings_needed-- ) {
    my $char = ReadKey(0);
    push( @timings, [ $char, gettimeofday() ] );
}

for my $time ( @timings ) {
    print "@{ $time }\n";
}

ReadMode( 0 );