#! perl -slw
use strict;
use Term::ReadKey;

ReadMode 4;

my( $count, $c );
until( defined( $c = ReadKey( 1 ) ) ) {
    print ++$count;
}
ReadMode 0;