#!/usr/bin/env perl6 use v6; loop { given prompt('') { when 'q'|'quit' { last; } } }