#!/usr/bin/perl -w
use strict;
use Term::ReadKey;
my $key;
print "Stop with CTRL-C\n";
unless (@ARGV) {
  print "Please enter your key:";
  $key = get_key();
}
else {
  $key = shift;
}
if (ref $key) {
  # got more than one key
  print "\nKeys:\n";
  print "$_\n" for map {ord $_} @$key;
}
else {
  my $ord = ord $key;
  print <<EOM;

Pressed: ($key)
Ord:      $ord        
EOM
}
sub get_key {
  my $key;
  ReadMode 4; # Turn off controls keys
  while (not defined ($key = ReadKey(-1))) {
  # No key yet
  }
  my $ord = ord $key;
  (ReadMode 0), exit if $ord == 3; # STRG-C
  ReadMode 0;
  if ($ord == 27) {
    my @keys = $key;
    while (defined(my $k = get_key_nb())) {
      push @keys, $k;
    }
    return \@keys;
  }
  return $key;
}
sub get_key_nb {
  ReadMode 4; # Turn off controls keys
  my $key = ReadKey(-1) or (ReadMode 0),return;
  my $ord = ord $key;
  (ReadMode 0), exit if $ord == 3; # STRG-C
  ReadMode 0;
  return $key;
}