Help for this page

Select Code to Download

Select or download this

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

Select or download this

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