system "stty cbreak &1";
print "Type an up arrow:";
$c1 = getc;
$c2 = getc;
$c3 = getc;
if ((ord($c1) == 27) && ($c2 eq '[') && ($c3 eq 'A')) {
print "You typed an up arrow.";
} else {
print "You did not type an up arrow.";
}