use 5.14.0;
use strict;
use warnings;
use IO::Prompter [-v];

my $string="";
do {
	$string = prompt("Input a string:");
	print "$string\n";
} until ($string ne "");