Perl 6: keypress to exit loop

#!/usr/bin/env perl6

use v6;

loop {

given prompt('') {

when 'q'|'quit' {

last;

}

}

}