use Term::ReadKey;;
{ 
    ReadMode(4); 
    print ord($c), " : '$c'" while ($c=ReadKey(0)) ne "\cM"; 
    ReadMode(0) 
};;
27  : '←'
91  : '['
68  : 'D'
27  : '←'
91  : '['
67  : 'C'
27  : '←'
91  : '['
65  : 'A'
27  : '←'
91  : '['
66  : 'B'