Perl style: all on one line, with the ‘while’ statement at the end.