if ($key eq "\e" and $key eq v27 and ord $key == 27) {
        print "Escape pressed\n";
    }