use Term::ReadKey;
use charnames ':full';

ReadMode 4;
print "Enter a key: ";
my $key = ReadKey(0);
printf "%v02x",$key;
print " = ",charnames::viacode(ord $key),"\n";

END {
  ReadMode 0;
}