use strictures;
use Term::TermKey::Async qw(FORMAT_VIM KEYMOD_CTRL);
use IO::Async::Loop;
use Time::HiRes qw(time);
binmode STDOUT, ':encoding(UTF-8)';

my $loop = IO::Async::Loop->new;
my $tka = Term::TermKey::Async->new(
    term => \*STDIN,
    on_key => sub {
        my ($self, $key) = @_;
        printf "Got key: %.8f %s\n", time, $self->format_key($key, FORMAT_VIM);
        $loop->loop_stop if $key->type_is_unicode and $key->utf8 eq "C" and $key->modifiers & KEYMOD_CTRL;
    },
);
$loop->add($tka);
$loop->loop_forever;