use IO::Prompt;

use strict;
use warnings;

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