RosettaCodeData/Task/Keyboard-input-Keypress-check/Perl-6/keyboard-input-keypress-check.pl6

use Term::ReadKey;

react {
    whenever key-pressed(:!echo) {
        given .fc {
            when 'q' { done }
            default { .uniname.say }
        }
    }
}