This is IO::Prompter, an improved prompt subroutine written
by Damian Conway for (Rakudo) Perl 6.  This is his version from 
1/1/2011, plus some tests added by colomon and moritz.