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