use Term::ReadKey;

my $c = ReadKey;
Dump $c;
say "[$c]";