#!perl

`stty raw`;

do {
   $c = getc;
} until (defined $c);

`stty sane`;

print "You said: '$c'\n";