Select Code to Download

#!/usr/bin/perl
use Term::ReadKey;
...
}

ReadMode('normal');   # restore normal tty settings

#!/usr/bin/perl
use warnings;
...
  print "$binding\n";
  print $e->K," released\n";
}