Select Code to Download

package HotKey;

...
    END { cooked() }

  1;

#! /usr/bin/perl

...
    print "you printed - $key \n";
} until $key eq 'a';