use strict;
use warnings;
use diagnostics;
use Term::ReadKey;

my $count = 0;
my $char;

ReadMode('cbreak');

while ($char eq "") {
    $char = ReadKey(0);
    $count++;
}

print $count;