#! /usr/bin/perl -w
use strict;

use Term::ReadKey;

#open(TTY, "</dev/tty");
#print "Gimme a char: ";
#ReadMode "raw";
#my $key = ReadKey 0, *TTY;
#ReadMode "normal";
#printf "\nYou said %s, char number %03d\n",$key, ord $key;

open(TTY, "</dev/tty");
my $key = ReadKey 0, *TTY;

while($key ne 'A'){
    ReadMode "raw";
    $key = ReadKey 0, *TTY;
    printf "\nYou said %s\n",$key;
}

ReadMode "normal";