Perl 6: keypress to exit loop

#!/usr/bin/env perl6

use v6;

loop {                                                                         
    given prompt('') {                                                                                                                         
        when 'q'|'quit' {                                                                                                                      
            last;
        }                                                                                                                                      
    }                                                                                                                                          
}