Select Code to Download

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

#!perl

...
        print "Escape pressed\n";
    }
}

X:\>perl -MO=Deparse 11144112.pl
use charnames (':full');
...
Internet, point your browser at http://www.perl.org/, the Perl Home Pa
+ge.

X:\>

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