use warnings;
use strict;
use Term::ReadKey qw/ReadMode ReadKey/;
use Data::Dumper;
$Data::Dumper::Useqq=1;

print "Press a key\n";
ReadMode 'cbreak';
my $key = ReadKey(0);
ReadMode 'restore';

print Dumper($key);
if ( $key eq "\e" ) {
	print "Escape pressed\n";
}