解决方法
我对Perl 6的熟悉程度不如Perl 5,但Perl 5方法似乎有效：
loop {
my $word = prompt '> ' ;
last if not defined $word;
say $word;
}
这可能更惯用：
while (defined my $word = prompt '> ') {
say $word;
}
(如果没有定义的运算符,循环将在空输入上终止.)