use strict;
use warnings;

use IO::Prompt;

while( prompt "next: " ) {
  print "You said '$_'\n";
}